8.1 Error functions.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    481436,      10620]
NotebookOptionsPosition[    467585,      10268]
NotebookOutlinePosition[    469160,      10320]
CellTagsIndexPosition[    469117,      10317]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[Cell[TextData[StyleBox["Rules for integrands involving error \
functions",
  FontFamily->"Arial"]], "None"]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9, 
   3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
   3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9, 
   3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
   3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9, 
   3.5450834895895033`*^9}, {3.5454961263762493`*^9, 
   3.5454961321462574`*^9}, {3.5454963863166127`*^9, 
   3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
   3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
   3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9, 
   3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
   3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9, 
   3.5462145601073203`*^9}, {3.5463149785974817`*^9, 
   3.5463149794195285`*^9}, {3.5488738437683954`*^9, 
   3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
   3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5758457803910656`*^9, 
   3.5758457938510847`*^9}, {3.5758458780912023`*^9, 
   3.5758458797312045`*^9}, {3.5758460250714083`*^9, 3.575846028691413*^9}, {
   3.5758461031815176`*^9, 3.575846103681518*^9}, {3.5758463018517957`*^9, 
   3.5758463042917986`*^9}, {3.5758464155019546`*^9, 3.575846417191957*^9}, {
   3.5758468610025787`*^9, 3.5758468696025906`*^9}},
 TextAlignment->Center,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Erf", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.5749614988631835`*^9}, {
   3.7094964063493805`*^9, 3.709496420516191*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"Erf", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599651210365`*^9, 
   3.57495996777104*^9}, {3.574961504633192*^9, 3.574961504973192*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 5.41", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4940010628073196`*^9, 3.4941723607787027`*^9, 3.4941724567488375`*^9, 
   3.4942710305441847`*^9}],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{3.4941724567488375`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"Erf", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}]}], "\[Equal]", 
   FractionBox[
    RowBox[{"2", " ", "b"}], 
    RowBox[{
     SqrtBox["\[Pi]"], " ", 
     SuperscriptBox["\[ExponentialE]", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], ")"}], "2"]]}]]}]],
  CellChangeTimes->{{3.7378453521894426`*^9, 3.7378454040384083`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.737845414326997*^9, 3.737845424440575*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494271052164215*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"Erf", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}], " ", 
        RowBox[{"Erf", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], "]"}]}], "b"]}]}]}]}], "-", 
  RowBox[{
   FractionBox["2", 
    SqrtBox["\[Pi]"]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], 
      SuperscriptBox["\[ExponentialE]", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}], "2"]]], 
     RowBox[{"\[DifferentialD]", 
      RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], ")"}], " ", 
         RowBox[{"Erf", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], "]"}]}], "b"]}]}]}]}]}], "+", 
  FractionBox["1", 
   RowBox[{"b", " ", 
    SqrtBox["\[Pi]"], " ", 
    SuperscriptBox["\[ExponentialE]", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], ")"}], "2"]]}]]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.494271065404234*^9, 3.494271092894272*^9}, 
   3.494274947079668*^9, {3.7378453182715025`*^9, 3.7378453446530113`*^9}, {
   3.7378454618557153`*^9, 3.7378455248703194`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"Erf", "[", 
     RowBox[{"a_.", "+", 
      RowBox[{"b_.", "*", "x_"}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"Erf", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}]}], "]"}], "/", "b"}]}], " ", "+", " ", 
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"b", "*", 
       RowBox[{"Sqrt", "[", "Pi", "]"}], "*", 
       RowBox[{"E", "^", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}]}], ")"}], "^", "2"}]}]}], ")"}]}]}], " ", "/;",
    "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.494274981899717*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"Erfc", "[", 
     RowBox[{"a_.", "+", 
      RowBox[{"b_.", "*", "x_"}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"Erfc", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}]}], "]"}], "/", "b"}]}], " ", "-", " ", 
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"b", "*", 
       RowBox[{"Sqrt", "[", "Pi", "]"}], "*", 
       RowBox[{"E", "^", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}]}], ")"}], "^", "2"}]}]}], ")"}]}]}], " ", "/;",
    "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, {
   3.4942734693275995`*^9, 3.4942734699276*^9}, 3.494273523557675*^9, 
   3.494275073489845*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"Erfi", "[", 
     RowBox[{"a_.", "+", 
      RowBox[{"b_.", "*", "x_"}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"Erfi", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}]}], "]"}], "/", "b"}]}], " ", "-", " ", 
    RowBox[{
     RowBox[{"E", "^", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}]}], ")"}], "^", "2"}]}], "/", 
     RowBox[{"(", 
      RowBox[{"b", "*", 
       RowBox[{"Sqrt", "[", "Pi", "]"}]}], ")"}]}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, {
   3.4942738418881207`*^9, 3.4942738421881213`*^9}, 3.4942739696182995`*^9, 
   3.4942751512099533`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Erf", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], "]"}], "2"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599747210503`*^9, 
   3.574959977251054*^9}, {3.5749623575343857`*^9, 3.574962357714386*^9}, {
   3.709496431124798*^9, 3.7094964313918133`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{3.4941724567488375`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    SuperscriptBox[
     RowBox[{"Erf", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], "2"]}], "\[Equal]", 
   FractionBox[
    RowBox[{"4", " ", "b", " ", 
     RowBox[{"Erf", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}]}], 
    RowBox[{
     SqrtBox["\[Pi]"], " ", 
     SuperscriptBox["\[ExponentialE]", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], ")"}], "2"]]}]]}]],
  CellChangeTimes->{{3.7378456289972754`*^9, 3.7378456687885513`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.737845680275208*^9, 3.7378456883806715`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494271179104393*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Erf", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], "2"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"Erf", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], "]"}], "2"]}], "b"]}]}]}]}], "-", 
  RowBox[{
   FractionBox["4", 
    SqrtBox["\[Pi]"]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], ")"}], " ", 
       RowBox[{"Erf", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], "]"}]}], 
      SuperscriptBox["\[ExponentialE]", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}], "2"]]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4942711908644094`*^9, 3.494271193814413*^9}, {
   3.4942712250044575`*^9, 3.49427123430447*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Erf", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "2"}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], ")"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"Erf", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}]}], "]"}], "^", "2"}], "/", "b"}]}], " ", "-",
     "\n", "  ", 
    RowBox[{
     RowBox[{"4", "/", 
      RowBox[{"Sqrt", "[", "Pi", "]"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], ")"}], "*", 
        RowBox[{
         RowBox[{"Erf", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}]}], "]"}], "/", 
         RowBox[{"E", "^", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", "x"}]}], ")"}], "^", "2"}]}]}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494271202714426*^9, 
   3.5488204906868124`*^9, 3.548820589576951*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Erfc", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "2"}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], ")"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"Erfc", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}]}], "]"}], "^", "2"}], "/", "b"}]}], " ", "+",
     "\n", "  ", 
    RowBox[{
     RowBox[{"4", "/", 
      RowBox[{"Sqrt", "[", "Pi", "]"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], ")"}], "*", 
        RowBox[{
         RowBox[{"Erfc", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}]}], "]"}], "/", 
         RowBox[{"E", "^", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", "x"}]}], ")"}], "^", "2"}]}]}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494271202714426*^9, {
   3.4942734727876043`*^9, 3.494273473777605*^9}, 3.494273553717717*^9, 
   3.5488205215068555`*^9, 3.548820656587045*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Erfi", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "2"}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}], ")"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"Erfi", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}]}], "]"}], "^", "2"}], "/", "b"}]}], " ", "-",
     "\n", "  ", 
    RowBox[{
     RowBox[{"4", "/", 
      RowBox[{"Sqrt", "[", "Pi", "]"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], ")"}], "*", 
        RowBox[{"E", "^", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", "x"}]}], ")"}], "^", "2"}]}], "*", 
        RowBox[{"Erfi", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494271202714426*^9, {
   3.494273844068124*^9, 3.4942738446781244`*^9}, 3.494273981228316*^9, 
   3.5488205503068953`*^9, 3.548820718717132*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["U:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Erf", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], "]"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", "\[NotEqual]", "1"}], " ", "\[And]", " ", 
       RowBox[{"n", "\[NotEqual]", "2"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599747210503`*^9, 
   3.574959977251054*^9}, {3.5749623575343857`*^9, 3.574962357714386*^9}, {
   3.709496431124798*^9, 3.7094964681639166`*^9}, {3.7094965854246235`*^9, 
   3.7094966309032245`*^9}, {3.723081603485848*^9, 3.7230816038748703`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: ",
 "If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "\[NotEqual]", "1"}], " ", "\[And]", " ", 
   RowBox[{"n", "\[NotEqual]", "2"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494271052164215*^9, {
   3.494271408804714*^9, 3.494271432974748*^9}, {3.574959991751074*^9, 
   3.574959994221077*^9}, {3.7094966272650166`*^9, 3.70949663694657*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Erf", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Erf", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], "]"}], "n"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4942711908644094`*^9, 3.494271193814413*^9}, {
   3.4942712250044575`*^9, 3.49427123430447*^9}, {3.7094964805636253`*^9, 
   3.7094964864139605`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Erf", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "n_"}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Erf", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}]}], "]"}], "^", "n"}], ",", "x"}], "]"}], " ", 
   "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "n"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"n", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"n", ",", "2"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494271202714426*^9, 
   3.5488204906868124`*^9, 3.548820589576951*^9, {3.709496496425533*^9, 
   3.70949652539719*^9}, {3.709496657122724*^9, 3.709496666931285*^9}, {
   3.7094994925178986`*^9, 3.7094994963121157`*^9}, 3.712338783025309*^9, 
   3.715550856266339*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Erfc", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "n_"}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Erfc", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}]}], "]"}], "^", "n"}], ",", "x"}], "]"}], " ", 
   "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "n"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"n", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"n", ",", "2"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494271202714426*^9, {
   3.4942734727876043`*^9, 3.494273473777605*^9}, 3.494273553717717*^9, 
   3.5488205215068555`*^9, 3.548820656587045*^9, {3.709496527339301*^9, 
   3.709496557200009*^9}, 3.7094966723795967`*^9, 3.709499501146392*^9, 
   3.71233878303331*^9, 3.715550856275339*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Erfi", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "n_"}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Erfi", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}]}], "]"}], "^", "n"}], ",", "x"}], "]"}], " ", 
   "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "n"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"n", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"n", ",", "2"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494271202714426*^9, {
   3.494273844068124*^9, 3.4942738446781244`*^9}, 3.494273981228316*^9, 
   3.5488205503068953`*^9, 3.548820718717132*^9, {3.709496529402419*^9, 
   3.709496558656092*^9}, 3.709496673856681*^9, 3.7094995024524665`*^9, 
   3.7123387830413103`*^9, 3.7155508562853403`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"Erf", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.574961534083233*^9}, {
   3.709429233911825*^9, 3.709429237300019*^9}, {3.709496685516348*^9, 
   3.70949671457701*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"Erf", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.574961534083233*^9}, {
   3.709429233911825*^9, 3.709429237300019*^9}, {3.709496685516348*^9, 
   3.70949673799835*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"Erf", "[", 
       RowBox[{"b", " ", "x"}], "]"}], "x"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.5749616507633963`*^9, 
   3.5749616802734375`*^9}, 3.7094966897825923`*^9, 3.709496739850456*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"Erfc", "[", "z", "]"}], "\[Equal]", 
   RowBox[{"1", "-", 
    RowBox[{"Erf", "[", "z", "]"}]}]}]],
  CellDingbat->None,
  CellChangeTimes->{
   3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
    3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
    3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
    3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
    3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
    3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
    3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
    3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
    3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
    3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
    3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
    3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
    3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
    3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
    3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
    3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
    3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
    3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
    3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
    3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
    3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9},
     3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
    3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
    3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
    3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
    3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
    3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
    3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
    3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
    3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
    3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
    3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
    3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
    3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
    3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
    3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
    3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
    3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
    3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
    3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9},
     3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
    3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
    3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
    3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
    3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
    3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
    3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
    3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
    3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
    3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
    3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
    3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
    3.574959999411084*^9}, 3.574961543243246*^9, {3.5749616507633963`*^9, 
    3.5749616802734375`*^9}},
  FontSize->12,
  FontWeight->"Bold"]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494271052164215*^9, {
   3.494271408804714*^9, 3.494271432974748*^9}, {3.574959991751074*^9, 
   3.574959994221077*^9}, 3.574961755703543*^9, {3.5749640466067505`*^9, 
   3.5749640855468054`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494271052164215*^9, {
   3.494271408804714*^9, 3.494271432974748*^9}, {3.574959991751074*^9, 
   3.574959994221077*^9}, 3.574961755703543*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox[
    RowBox[{"Erf", "[", 
     RowBox[{"b", " ", "x"}], "]"}], "x"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{"2", " ", "b", " ", "x"}], 
      SqrtBox["\[Pi]"]]}]}], 
   RowBox[{"HypergeometricPFQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       FractionBox["1", "2"], ",", 
       FractionBox["1", "2"]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       FractionBox["3", "2"], ",", 
       FractionBox["3", "2"]}], "}"}], ",", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["b", "2"]}], " ", 
      SuperscriptBox["x", "2"]}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.494271065404234*^9, 3.494271092894272*^9}, {
   3.4942713522746353`*^9, 3.494271366464655*^9}, 3.494275024729777*^9, {
   3.574961703833471*^9, 3.5749617330935116`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Erf", "[", 
      RowBox[{"b_.", "*", "x_"}], "]"}], "/", "x_"}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"2", "*", "b", "*", 
    RowBox[{"x", "/", 
     RowBox[{"Sqrt", "[", "Pi", "]"}]}], "*", 
    RowBox[{"HypergeometricPFQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"1", "/", "2"}], ",", 
        RowBox[{"1", "/", "2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"3", "/", "2"}], ",", 
        RowBox[{"3", "/", "2"}]}], "}"}], ",", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"b", "^", "2"}]}], "*", 
       RowBox[{"x", "^", "2"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{"b", ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Erfc", "[", 
      RowBox[{"b_.", "*", "x_"}], "]"}], "/", "x_"}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"Log", "[", "x", "]"}], " ", "-", " ", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Erf", "[", 
        RowBox[{"b", "*", "x"}], "]"}], "/", "x"}], ",", "x"}], "]"}]}], " ", 
   "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{"b", ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, {3.5749619205737743`*^9, 
   3.574961932543791*^9}, 3.5749620709339848`*^9, {3.574963566686079*^9, 
   3.574963572016086*^9}, {3.574963616246148*^9, 3.574963640366182*^9}, 
   3.5749636869962473`*^9, {3.5749639202965736`*^9, 3.5749639424766045`*^9}, {
   3.5749640178167105`*^9, 3.574964019676713*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Erfi", "[", 
      RowBox[{"b_.", "*", "x_"}], "]"}], "/", "x_"}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"2", "*", "b", "*", 
    RowBox[{"x", "/", 
     RowBox[{"Sqrt", "[", "Pi", "]"}]}], "*", 
    RowBox[{"HypergeometricPFQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"1", "/", "2"}], ",", 
        RowBox[{"1", "/", "2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"3", "/", "2"}], ",", 
        RowBox[{"3", "/", "2"}]}], "}"}], ",", 
      RowBox[{
       RowBox[{"b", "^", "2"}], "*", 
       RowBox[{"x", "^", "2"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{"b", ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, {3.5749619205737743`*^9, 
   3.574961934833794*^9}, {3.574962180654138*^9, 3.5749621963941603`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
     RowBox[{"Erf", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[NotEqual]", 
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, 3.7094292446364384`*^9, 
   3.709496691964717*^9, 3.709496740529495*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{3.4941724567488375`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"Erf", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}]}], "\[Equal]", 
   FractionBox[
    RowBox[{"2", " ", "b"}], 
    RowBox[{
     SqrtBox["\[Pi]"], " ", 
     SuperscriptBox["\[ExponentialE]", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], ")"}], "2"]]}]]}]],
  CellChangeTimes->{{3.7378453521894426`*^9, 3.7378454040384083`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.737845414326997*^9, 3.737845424440575*^9}}],

Cell[TextData[{
 "Rule: ",
 "If  ",
 Cell[BoxData[
  RowBox[{"m", "\[NotEqual]", 
   RowBox[{"-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494271052164215*^9, {
   3.494271408804714*^9, 3.494271432974748*^9}, {3.574959991751074*^9, 
   3.574959994221077*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
    RowBox[{"Erf", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], ")"}], 
         RowBox[{"m", "+", "1"}]], " ", 
        RowBox[{"Erf", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], "]"}]}], 
       RowBox[{"d", " ", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"2", " ", "b"}], 
    RowBox[{
     SqrtBox["\[Pi]"], " ", "d", " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], ")"}], 
       RowBox[{"m", "+", "1"}]], 
      SuperscriptBox["\[ExponentialE]", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}], "2"]]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.494271065404234*^9, 3.494271092894272*^9}, {
   3.4942713522746353`*^9, 3.494271366464655*^9}, 3.494275024729777*^9, {
   3.7094292468135633`*^9, 3.709429263753532*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"Erf", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erf", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", "\n", "  ", 
    RowBox[{"2", "*", 
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Sqrt", "[", "Pi", "]"}], "*", "d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "/", 
        RowBox[{"E", "^", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", "x"}]}], ")"}], "^", "2"}]}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "m"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, 3.706141678638372*^9, {3.7094287716213837`*^9, 
   3.7094287721314125`*^9}, {3.7094292930112057`*^9, 3.709429371395689*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"Erfc", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erfc", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", "\n", "  ", 
    RowBox[{"2", "*", 
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Sqrt", "[", "Pi", "]"}], "*", "d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "/", 
        RowBox[{"E", "^", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", "x"}]}], ")"}], "^", "2"}]}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "m"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, {3.494273476107609*^9, 3.494273476427609*^9}, 
   3.4942736026177855`*^9, 3.4942750934598727`*^9, 3.548820525316861*^9, 
   3.548820665047057*^9, 3.706141678648372*^9, 3.7094287863782277`*^9, {
   3.709429307847054*^9, 3.709429376780997*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"Erfi", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erfi", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", "\n", "  ", 
    RowBox[{"2", "*", 
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Sqrt", "[", "Pi", "]"}], "*", "d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{"E", "^", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", "x"}]}], ")"}], "^", "2"}]}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "m"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, {3.494273893628193*^9, 3.4942738938981934`*^9}, 
   3.494273992128331*^9, 3.4942751705299807`*^9, 3.5488205544369016`*^9, 
   3.54882072462714*^9, 3.706141678658372*^9, 3.709428786394229*^9, {
   3.709429309773164*^9, 3.7094293813192563`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"Erf", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], "]"}], "2"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.574961534083233*^9}, 
   3.5749623830144215`*^9, 3.709496078673639*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox[
      RowBox[{"Erf", "[", 
       RowBox[{"b", " ", "x"}], "]"}], "2"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], " ", "\[Or]", " ", 
       RowBox[{
        FractionBox[
         RowBox[{"m", "+", "1"}], "2"], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749600080310965`*^9, 
   3.574960036241136*^9}, {3.574962387554428*^9, 3.574962391954434*^9}, {
   3.709596809262844*^9, 3.7095968573675957`*^9}, {3.709596891920572*^9, 
   3.709596914491863*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{3.4941724567488375`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    SuperscriptBox[
     RowBox[{"Erf", "[", 
      RowBox[{"b", " ", "x"}], "]"}], "2"]}], "\[Equal]", 
   FractionBox[
    RowBox[{"4", " ", "b", " ", 
     RowBox[{"Erf", "[", 
      RowBox[{"b", " ", "x"}], "]"}]}], 
    RowBox[{
     SqrtBox["\[Pi]"], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       SuperscriptBox["b", "2"], " ", 
       SuperscriptBox["x", "2"]}]]}]]}]],
  CellChangeTimes->{{3.7378456289972754`*^9, 3.7378456687885513`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.737845680275208*^9, 3.7378456883806715`*^9}, {
   3.737846713515306*^9, 3.737846727104083*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], " ", "\[Or]", " ", 
   RowBox[{
    FractionBox[
     RowBox[{"m", "+", "1"}], "2"], "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4942714693347993`*^9, 
   3.4942715340348897`*^9}, {3.4942715837849593`*^9, 
   3.4942715950249753`*^9}, {3.4942716458250465`*^9, 3.494271658445064*^9}, 
   3.494272339896018*^9, {3.5749600138911047`*^9, 3.5749600159711075`*^9}, {
   3.709596919827168*^9, 3.709596919827168*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    SuperscriptBox[
     RowBox[{"Erf", "[", 
      RowBox[{"b", " ", "x"}], "]"}], "2"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["x", 
         RowBox[{"m", "+", "1"}]], " ", 
        SuperscriptBox[
         RowBox[{"Erf", "[", 
          RowBox[{"b", " ", "x"}], "]"}], "2"]}], 
       RowBox[{"m", "+", "1"}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"4", " ", "b"}], 
    RowBox[{
     SqrtBox["\[Pi]"], " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["x", 
        RowBox[{"m", "+", "1"}]], " ", 
       RowBox[{"Erf", "[", 
        RowBox[{"b", " ", "x"}], "]"}]}], 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        SuperscriptBox["b", "2"], " ", 
        SuperscriptBox["x", "2"]}]]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4942717172451463`*^9, {3.494271937915455*^9, 
   3.494271942875462*^9}, {3.4942747320193667`*^9, 3.49427473408937*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"Erf", "[", 
       RowBox[{"b_.", "*", "x_"}], "]"}], "^", "2"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"Erf", "[", 
        RowBox[{"b", "*", "x"}], "]"}], "^", "2"}], "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}]}], " ", "-", "\n", "  ", 
    RowBox[{"4", "*", 
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Sqrt", "[", "Pi", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"b", "^", "2"}]}], "*", 
           RowBox[{"x", "^", "2"}]}], ")"}]}], "*", 
        RowBox[{"Erf", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{"b", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"IGtQ", "[", 
       RowBox[{"m", ",", "0"}], "]"}], " ", "||", " ", 
      RowBox[{"ILtQ", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}], "/", "2"}], ",", "0"}], "]"}]}], 
     ")"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942716088849945`*^9, 
   3.548820498356823*^9, 3.5488206032269707`*^9, {3.574960039901141*^9, 
   3.5749600424111447`*^9}, {3.709429120052313*^9, 3.709429152467167*^9}, {
   3.7095969312688227`*^9, 3.709596963247651*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"Erfc", "[", 
       RowBox[{"b_.", "*", "x_"}], "]"}], "^", "2"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"Erfc", "[", 
        RowBox[{"b", "*", "x"}], "]"}], "^", "2"}], "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}]}], " ", "+", "\n", "  ", 
    RowBox[{"4", "*", 
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Sqrt", "[", "Pi", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"b", "^", "2"}]}], "*", 
           RowBox[{"x", "^", "2"}]}], ")"}]}], "*", 
        RowBox[{"Erfc", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{"b", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"IGtQ", "[", 
       RowBox[{"m", ",", "0"}], "]"}], " ", "||", " ", 
      RowBox[{"ILtQ", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}], "/", "2"}], ",", "0"}], "]"}]}], 
     ")"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942716088849945`*^9, {
   3.494273478657612*^9, 3.494273479357613*^9}, 3.4942736191678085`*^9, 
   3.548820528816866*^9, 3.548820670177064*^9, 3.70942916773704*^9, 
   3.7095969790635557`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"Erfi", "[", 
       RowBox[{"b_.", "*", "x_"}], "]"}], "^", "2"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"Erfi", "[", 
        RowBox[{"b", "*", "x"}], "]"}], "^", "2"}], "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}]}], " ", "-", "\n", "  ", 
    RowBox[{"4", "*", 
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Sqrt", "[", "Pi", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"b", "^", "2"}], "*", 
           RowBox[{"x", "^", "2"}]}], ")"}]}], "*", 
        RowBox[{"Erfi", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{"b", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"IGtQ", "[", 
       RowBox[{"m", ",", "0"}], "]"}], " ", "||", " ", 
      RowBox[{"ILtQ", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}], "/", "2"}], ",", "0"}], "]"}]}], 
     ")"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942716088849945`*^9, {
   3.494273894898195*^9, 3.4942738953581953`*^9}, 3.494274002708346*^9, 
   3.548820558196907*^9, 3.5488207290471463`*^9, 3.7094291719532814`*^9, 
   3.709596980927663*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"Erf", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], "]"}], "2"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749600522111588`*^9, 
   3.57496006772118*^9}, 3.574962393234436*^9, {3.709494778990301*^9, 
   3.7094947808454075`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{3.4941724567488375`*^9, 3.494271795645256*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4942714693347993`*^9, 
   3.4942715340348897`*^9}, {3.4942715837849593`*^9, 
   3.4942715950249753`*^9}, {3.4942716458250465`*^9, 3.494271658445064*^9}, {
   3.494271809215275*^9, 3.494271810105276*^9}, {3.5749600577211657`*^9, 
   3.574960062391173*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"Erf", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], "2"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", 
      SuperscriptBox["b", 
       RowBox[{"m", "+", "1"}]]]}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Erf", "[", "x", "]"}], "2"], " ", 
       RowBox[{"ExpandIntegrand", "[", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"b", " ", "c"}], "-", 
            RowBox[{"a", " ", "d"}], "+", 
            RowBox[{"d", " ", "x"}]}], ")"}], "m"], ",", "x"}], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4942717172451463`*^9, 3.4942718450853252`*^9, {
   3.4942719066154113`*^9, 3.4942719115954185`*^9}, 3.7094947872867756`*^9, {
   3.7094948244098988`*^9, 3.7094948374526453`*^9}, {3.709495183028411*^9, 
   3.7094951980462694`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"Erf", "[", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "2"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"b", "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}]}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{"ExpandIntegrand", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Erf", "[", "x", "]"}], "^", "2"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"b", "*", "c"}], "-", 
             RowBox[{"a", "*", "d"}], "+", 
             RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], ",", "x"}], "]"}], 
        ",", "x"}], "]"}], ",", "x", ",", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942716088849945`*^9, 
   3.494271801415264*^9, 3.548820501776828*^9, 3.5488206096069794`*^9, {
   3.5749600710511847`*^9, 3.574960076041192*^9}, {3.70942918137282*^9, 
   3.709429189077261*^9}, {3.709494887824526*^9, 3.709494944277755*^9}, 
   3.7094952705294156`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"Erfc", "[", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "2"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"b", "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}]}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{"ExpandIntegrand", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Erfc", "[", "x", "]"}], "^", "2"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"b", "*", "c"}], "-", 
             RowBox[{"a", "*", "d"}], "+", 
             RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], ",", "x"}], "]"}], 
        ",", "x"}], "]"}], ",", "x", ",", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942716088849945`*^9, 
   3.494271801415264*^9, {3.4942734809576154`*^9, 3.494273481297616*^9}, 
   3.4942736520578547`*^9, 3.548820533286872*^9, 3.5488206752170715`*^9, 
   3.5749605116518016`*^9, 3.7094291944585686`*^9, {3.709494901043282*^9, 
   3.7094949585875735`*^9}, {3.7094952845842195`*^9, 3.709495294574791*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"Erfi", "[", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "2"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"b", "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}]}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{"ExpandIntegrand", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Erfi", "[", "x", "]"}], "^", "2"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"b", "*", "c"}], "-", 
             RowBox[{"a", "*", "d"}], "+", 
             RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], ",", "x"}], "]"}], 
        ",", "x"}], "]"}], ",", "x", ",", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", "x"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942716088849945`*^9, 
   3.494271801415264*^9, {3.4942738960681963`*^9, 3.494273896308197*^9}, 
   3.49427401293836*^9, 3.5488205628869133`*^9, 3.5488207339671535`*^9, 
   3.574960513321804*^9, 3.709429196334676*^9, {3.7094949029713926`*^9, 
   3.7094949603696756`*^9}, {3.7094952905845623`*^9, 3.7094952968389206`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["U:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"Erf", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], "]"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599747210503`*^9, 
   3.574959977251054*^9}, {3.5749623575343857`*^9, 3.574962357714386*^9}, {
   3.709496431124798*^9, 3.7094964681639166`*^9}, {3.7094965854246235`*^9, 
   3.7094966309032245`*^9}, {3.709496817792914*^9, 3.7094968184269505`*^9}, 
   3.709496861764429*^9, {3.723081609328182*^9, 3.7230816098422117`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494271052164215*^9, {
   3.494271408804714*^9, 3.494271432974748*^9}, {3.574959991751074*^9, 
   3.574959994221077*^9}, {3.7094966272650166`*^9, 3.70949663694657*^9}, 
   3.709496866025673*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"Erf", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
       SuperscriptBox[
        RowBox[{"Erf", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], "]"}], "n"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4942711908644094`*^9, 3.494271193814413*^9}, {
   3.4942712250044575`*^9, 3.49427123430447*^9}, {3.7094964805636253`*^9, 
   3.7094964864139605`*^9}, {3.709496882167596*^9, 3.7094968843107185`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"Erf", "[", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{"Erf", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}]}], "]"}], "^", "n"}]}], ",", "x"}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n"}], "}"}], 
     ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494271202714426*^9, 
   3.5488204906868124`*^9, 3.548820589576951*^9, {3.709496496425533*^9, 
   3.70949652539719*^9}, {3.709496657122724*^9, 3.709496666931285*^9}, {
   3.709496911895296*^9, 3.7094969140614204`*^9}, {3.709496947546335*^9, 
   3.709496951560565*^9}, {3.7094969955630817`*^9, 3.709497023468678*^9}, 
   3.7094995086928234`*^9, 3.712338783128315*^9, 3.7155508563653445`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"Erfc", "[", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{"Erfc", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}]}], "]"}], "^", "n"}]}], ",", "x"}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n"}], "}"}], 
     ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494271202714426*^9, {
   3.4942734727876043`*^9, 3.494273473777605*^9}, 3.494273553717717*^9, 
   3.5488205215068555`*^9, 3.548820656587045*^9, {3.709496527339301*^9, 
   3.709496557200009*^9}, 3.7094966723795967`*^9, 3.7094969224348993`*^9, 
   3.7094969571088824`*^9, {3.7094969974071875`*^9, 3.709497030897103*^9}, 
   3.709499509964896*^9, 3.7123387831363153`*^9, 3.7155508563743453`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"Erfi", "[", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{"Erfi", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}]}], "]"}], "^", "n"}]}], ",", "x"}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n"}], "}"}], 
     ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494271202714426*^9, {
   3.494273844068124*^9, 3.4942738446781244`*^9}, 3.494273981228316*^9, 
   3.5488205503068953`*^9, 3.548820718717132*^9, {3.709496529402419*^9, 
   3.709496558656092*^9}, 3.709496673856681*^9, 3.709496924203*^9, 
   3.709496958331952*^9, {3.7094969993532987`*^9, 3.7094970323501863`*^9}, 
   3.7094995115439863`*^9, 3.7123387831443157`*^9, 3.7155508563843455`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["3.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", 
       SuperscriptBox["x", "2"]}]}]], " ", 
    SuperscriptBox[
     RowBox[{"Erf", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.574961534083233*^9}, {
   3.5749624306844883`*^9, 3.57496245323452*^9}, 3.7094967868381433`*^9, {
   3.709497602398791*^9, 3.7094976398549333`*^9}, {3.709497795152816*^9, 
   3.7094977978639708`*^9}, {3.709524495857602*^9, 3.709524501737939*^9}, {
   3.709525119418268*^9, 3.7095251196402807`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "2"]}]}]], " ", 
     SuperscriptBox[
      RowBox[{"Erf", "[", 
       RowBox[{"b", " ", "x"}], "]"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       SuperscriptBox["d", "2"], "\[Equal]", 
       SuperscriptBox["b", "4"]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.574961534083233*^9}, {
   3.5749624306844883`*^9, 3.57496245323452*^9}, 3.7094967868381433`*^9, {
   3.709497602398791*^9, 3.7094976398549333`*^9}, {3.709497795152816*^9, 
   3.7094977978639708`*^9}, {3.709524495857602*^9, 3.709524501737939*^9}, {
   3.709525119418268*^9, 3.7095251196402807`*^9}, {3.709526188555419*^9, 
   3.709526189839493*^9}, {3.7095279545014257`*^9, 3.709527954636433*^9}, 
   3.709765629247985*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "2"]}]}]], " ", 
     SuperscriptBox[
      RowBox[{"Erf", "[", 
       RowBox[{"b", " ", "x"}], "]"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"d", "\[Equal]", 
       RowBox[{"-", 
        SuperscriptBox["b", "2"]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.5749616507633963`*^9, 
   3.5749616802734375`*^9}, 3.5749626407247825`*^9, 3.5749626887048492`*^9, {
   3.5749628029250097`*^9, 3.5749628467550707`*^9}, {3.5749629957552795`*^9, 
   3.574962998955284*^9}, 3.709497475156513*^9, 3.709497552043911*^9, {
   3.7095245504297237`*^9, 3.7095245507937446`*^9}, {3.7095250299641514`*^9, 
   3.709525032961323*^9}, {3.7095261915175886`*^9, 3.709526216233002*^9}, {
   3.709527260356723*^9, 3.7095272617358017`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Integration by substitution\
\>", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4942714693347993`*^9, 
   3.4942715340348897`*^9}, {3.4942715837849593`*^9, 
   3.4942715950249753`*^9}, {3.4942716458250465`*^9, 3.494271658445064*^9}, {
   3.494271809215275*^9, 3.494271810105276*^9}, {3.4942730894970675`*^9, 
   3.4942731037070875`*^9}, {3.5491587383546886`*^9, 
   3.5491587383546886`*^9}, {3.5749629139251647`*^9, 
   3.5749629139251647`*^9}, {3.5749630043852916`*^9, 
   3.5749630043852916`*^9}, {3.709526450958428*^9, 3.709526450958428*^9}, {
   3.7095266191890497`*^9, 3.70952663107773*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{"d", "\[Equal]", 
   RowBox[{"-", 
    SuperscriptBox["b", "2"]}]}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", 
       SuperscriptBox["x", "2"]}]}]], " ", 
    RowBox[{"F", "[", 
     RowBox[{"Erf", "[", 
      RowBox[{"b", " ", "x"}], "]"}], "]"}]}], "\[Equal]", 
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", "c"], " ", 
      SqrtBox["\[Pi]"]}], 
     RowBox[{"2", " ", "b"}]], " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"F", "[", "x", "]"}], ",", "x", ",", 
      RowBox[{"Erf", "[", 
       RowBox[{"b", " ", "x"}], "]"}]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Erf", "[", 
      RowBox[{"b", " ", "x"}], "]"}]}]}]}]],
  CellChangeTimes->{{3.709526702366808*^9, 3.7095268340613403`*^9}, {
   3.7095269201932664`*^9, 3.709527004643097*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4942714693347993`*^9, 
   3.4942715340348897`*^9}, {3.4942715837849593`*^9, 
   3.4942715950249753`*^9}, {3.4942716458250465`*^9, 3.494271658445064*^9}, {
   3.494271809215275*^9, 3.494271810105276*^9}, {3.4942730894970675`*^9, 
   3.4942731037070875`*^9}, {3.5491587383546886`*^9, 
   3.5491587383546886`*^9}, {3.5749629139251647`*^9, 
   3.5749629139251647`*^9}, {3.5749630043852916`*^9, 
   3.5749630043852916`*^9}, {3.709526450958428*^9, 3.709526450958428*^9}, {
   3.7095266191890497`*^9, 3.70952663107773*^9}, {3.70952668230366*^9, 
   3.709526683662738*^9}, {3.7095270187019005`*^9, 3.7095270249762597`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"d", "\[Equal]", 
   RowBox[{"-", 
    SuperscriptBox["b", "2"]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4942714693347993`*^9, 
   3.4942715340348897`*^9}, {3.4942715837849593`*^9, 
   3.4942715950249753`*^9}, {3.4942716458250465`*^9, 3.494271658445064*^9}, {
   3.494271809215275*^9, 3.494271810105276*^9}, {3.4942730894970675`*^9, 
   3.4942731037070875`*^9}, {3.5491587383546886`*^9, 
   3.5491587383546886`*^9}, {3.5749629139251647`*^9, 
   3.5749629139251647`*^9}, {3.5749630043852916`*^9, 
   3.5749630043852916`*^9}, {3.709526450958428*^9, 3.709526450958428*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"c", "+", 
     RowBox[{"d", " ", 
      SuperscriptBox["x", "2"]}]}]], " ", 
   SuperscriptBox[
    RowBox[{"Erf", "[", 
     RowBox[{"b", " ", "x"}], "]"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", "c"], " ", 
       SqrtBox["\[Pi]"]}], 
      RowBox[{"2", " ", "b"}]]}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox["x", "n"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     RowBox[{"Erf", "[", 
      RowBox[{"b", " ", "x"}], "]"}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.494271065404234*^9, 3.494271092894272*^9}, {
   3.4942713522746353`*^9, 3.494271366464655*^9}, 3.494275024729777*^9, {
   3.574961703833471*^9, 3.5749617330935116`*^9}, 3.5749628921251345`*^9, 
   3.574962955625223*^9, 3.5749638049564123`*^9, {3.7095245711059065`*^9, 
   3.709524571410924*^9}, {3.709524606000902*^9, 3.709524627966159*^9}, 
   3.7095263000787983`*^9, {3.7095270911340437`*^9, 3.7095271398158283`*^9}, {
   3.7095272731874566`*^9, 3.7095273177150035`*^9}, 3.7095276966056747`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erf", "[", 
       RowBox[{"b_.", "*", "x_"}], "]"}], "^", "n_."}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"E", "^", "c"}], "*", 
    RowBox[{
     RowBox[{"Sqrt", "[", "Pi", "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"2", "*", "b"}], ")"}]}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{"x", "^", "n"}], ",", "x"}], "]"}], ",", "x", ",", 
      RowBox[{"Erf", "[", 
       RowBox[{"b", "*", "x"}], "]"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"d", ",", 
      RowBox[{"-", 
       RowBox[{"b", "^", "2"}]}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, 3.5749630438453465`*^9, {
   3.574963184685544*^9, 3.5749632221155963`*^9}, 3.5749637688063617`*^9, 
   3.7061415974082584`*^9, 3.7094288405373254`*^9, {3.709524663411186*^9, 
   3.709524717100257*^9}, 3.7095263328266706`*^9, 3.709526367528656*^9, {
   3.709527342439418*^9, 3.7095274186127744`*^9}, 3.7095277352798867`*^9, 
   3.70952981674294*^9, {3.709573950166326*^9, 3.709573951506328*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erfc", "[", 
       RowBox[{"b_.", "*", "x_"}], "]"}], "^", "n_."}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{"E", "^", "c"}]}], "*", 
    RowBox[{
     RowBox[{"Sqrt", "[", "Pi", "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"2", "*", "b"}], ")"}]}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{"x", "^", "n"}], ",", "x"}], "]"}], ",", "x", ",", 
      RowBox[{"Erfc", "[", 
       RowBox[{"b", "*", "x"}], "]"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"d", ",", 
      RowBox[{"-", 
       RowBox[{"b", "^", "2"}]}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, {3.5749619205737743`*^9, 
   3.574961932543791*^9}, 3.5749620709339848`*^9, {3.574963566686079*^9, 
   3.574963572016086*^9}, {3.574963616246148*^9, 3.574963640366182*^9}, 
   3.5749636869962473`*^9, 3.7061415974182587`*^9, 3.709428842765453*^9, {
   3.709524773264469*^9, 3.70952478132493*^9}, 3.709526334339758*^9, {
   3.7095265450398088`*^9, 3.70952656149575*^9}, {3.7095273521079707`*^9, 
   3.709527399370674*^9}, {3.7095274348037004`*^9, 3.7095274387559266`*^9}, {
   3.70952777152396*^9, 3.7095277817305436`*^9}, 3.709529818765055*^9, 
   3.7095739574953384`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erfi", "[", 
       RowBox[{"b_.", "*", "x_"}], "]"}], "^", "n_."}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"E", "^", "c"}], "*", 
    RowBox[{
     RowBox[{"Sqrt", "[", "Pi", "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"2", "*", "b"}], ")"}]}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{"x", "^", "n"}], ",", "x"}], "]"}], ",", "x", ",", 
      RowBox[{"Erfi", "[", 
       RowBox[{"b", "*", "x"}], "]"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"d", ",", 
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, 3.5749630438453465`*^9, {
   3.574963184685544*^9, 3.5749632221155963`*^9}, {3.5749632624556527`*^9, 
   3.574963268425661*^9}, 3.574963775356371*^9, 3.7061415974282584`*^9, {
   3.7094288530920434`*^9, 3.7094288542741113`*^9}, {3.709524829520687*^9, 
   3.709524831082776*^9}, {3.7095248810376334`*^9, 3.7095248961394973`*^9}, 
   3.7095263366448894`*^9, 3.709526383455567*^9, 3.709526424880936*^9, {
   3.7095273559551907`*^9, 3.709527400582743*^9}, {3.709527456285929*^9, 
   3.7095274725918617`*^9}, {3.709527804541848*^9, 3.709527806998989*^9}, 
   3.709529822377262*^9, 3.709573959156342*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "2"]}]}]], " ", 
     RowBox[{"Erf", "[", 
      RowBox[{"b", " ", "x"}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"d", "\[Equal]", 
       SuperscriptBox["b", "2"]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.5749616507633963`*^9, 
   3.5749616802734375`*^9}, 3.5749626407247825`*^9, 3.5749626887048492`*^9, {
   3.5749628029250097`*^9, 3.5749628467550707`*^9}, {3.5749629957552795`*^9, 
   3.574962998955284*^9}, 3.709497475156513*^9, 3.709497552043911*^9, {
   3.7095245504297237`*^9, 3.7095245507937446`*^9}, {3.7095250299641514`*^9, 
   3.709525032961323*^9}, {3.7095261915175886`*^9, 3.709526192694656*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"Erfc", "[", "z", "]"}], "\[Equal]", 
   RowBox[{"1", "-", 
    RowBox[{"Erf", "[", "z", "]"}]}]}]],
  CellDingbat->None,
  CellChangeTimes->{
   3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
    3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
    3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
    3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
    3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
    3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
    3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
    3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
    3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
    3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
    3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
    3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
    3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
    3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
    3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
    3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
    3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
    3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
    3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
    3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
    3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9},
     3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
    3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
    3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
    3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
    3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
    3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
    3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
    3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
    3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
    3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
    3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
    3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
    3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
    3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
    3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
    3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
    3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
    3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
    3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9},
     3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
    3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
    3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
    3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
    3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
    3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
    3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
    3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
    3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
    3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
    3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
    3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
    3.574959999411084*^9}, 3.574961543243246*^9, {3.5749616507633963`*^9, 
    3.5749616802734375`*^9}},
  FontSize->12,
  FontWeight->"Bold"]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494271052164215*^9, {
   3.494271408804714*^9, 3.494271432974748*^9}, {3.574959991751074*^9, 
   3.574959994221077*^9}, 3.574961755703543*^9, {3.5749640466067505`*^9, 
   3.5749640855468054`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"d", "\[Equal]", 
   SuperscriptBox["b", "2"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4942714693347993`*^9, 
   3.4942715340348897`*^9}, {3.4942715837849593`*^9, 
   3.4942715950249753`*^9}, {3.4942716458250465`*^9, 3.494271658445064*^9}, {
   3.494271809215275*^9, 3.494271810105276*^9}, {3.4942730894970675`*^9, 
   3.4942731037070875`*^9}, {3.5491587383546886`*^9, 
   3.5491587383546886`*^9}, {3.5749629139251647`*^9, 
   3.5749629139251647`*^9}, {3.5749630043852916`*^9, 3.5749630043852916`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"c", "+", 
     RowBox[{"d", " ", 
      SuperscriptBox["x", "2"]}]}]], " ", 
   RowBox[{"Erf", "[", 
    RowBox[{"b", " ", "x"}], "]"}], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{"b", " ", 
       SuperscriptBox["\[ExponentialE]", "c"], " ", 
       SuperscriptBox["x", "2"]}], 
      SqrtBox["\[Pi]"]]}]}], " ", 
   RowBox[{"HypergeometricPFQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       FractionBox["3", "2"], ",", "2"}], "}"}], ",", 
     RowBox[{
      SuperscriptBox["b", "2"], " ", 
      SuperscriptBox["x", "2"]}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.494271065404234*^9, 3.494271092894272*^9}, {
   3.4942713522746353`*^9, 3.494271366464655*^9}, 3.494275024729777*^9, {
   3.574961703833471*^9, 3.5749617330935116`*^9}, 3.5749628921251345`*^9, 
   3.574962955625223*^9, 3.5749638049564123`*^9, {3.7095245711059065`*^9, 
   3.709524571410924*^9}, {3.709524606000902*^9, 3.709524627966159*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{"Erf", "[", 
      RowBox[{"b_.", "*", "x_"}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{"b", "*", 
    RowBox[{"E", "^", "c"}], "*", 
    RowBox[{
     RowBox[{"x", "^", "2"}], "/", 
     RowBox[{"Sqrt", "[", "Pi", "]"}]}], "*", 
    RowBox[{"HypergeometricPFQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"3", "/", "2"}], ",", "2"}], "}"}], ",", 
      RowBox[{
       RowBox[{"b", "^", "2"}], "*", 
       RowBox[{"x", "^", "2"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"d", ",", 
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, 3.5749630438453465`*^9, {
   3.574963184685544*^9, 3.5749632221155963`*^9}, 3.5749637688063617`*^9, 
   3.7061415974082584`*^9, 3.7094288405373254`*^9, {3.709524663411186*^9, 
   3.709524717100257*^9}, {3.7095739916023884`*^9, 3.709573994242392*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{"Erfc", "[", 
      RowBox[{"b_.", "*", "x_"}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{"E", "^", 
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", 
          RowBox[{"x", "^", "2"}]}]}], ")"}]}], ",", "x"}], "]"}], " ", "-", 
    " ", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", 
           RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
       RowBox[{"Erf", "[", 
        RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"d", ",", 
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, {3.5749619205737743`*^9, 
   3.574961932543791*^9}, 3.5749620709339848`*^9, {3.574963566686079*^9, 
   3.574963572016086*^9}, {3.574963616246148*^9, 3.574963640366182*^9}, 
   3.5749636869962473`*^9, 3.7061415974182587`*^9, 3.709428842765453*^9, {
   3.709524773264469*^9, 3.70952478132493*^9}, 3.7095739994243994`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{"Erfi", "[", 
      RowBox[{"b_.", "*", "x_"}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{"b", "*", 
    RowBox[{"E", "^", "c"}], "*", 
    RowBox[{
     RowBox[{"x", "^", "2"}], "/", 
     RowBox[{"Sqrt", "[", "Pi", "]"}]}], "*", 
    RowBox[{"HypergeometricPFQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"3", "/", "2"}], ",", "2"}], "}"}], ",", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"b", "^", "2"}]}], "*", 
       RowBox[{"x", "^", "2"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"d", ",", 
      RowBox[{"-", 
       RowBox[{"b", "^", "2"}]}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, 3.5749630438453465`*^9, {
   3.574963184685544*^9, 3.5749632221155963`*^9}, {3.5749632624556527`*^9, 
   3.574963268425661*^9}, 3.574963775356371*^9, 3.7061415974282584`*^9, {
   3.7094288530920434`*^9, 3.7094288542741113`*^9}, {3.709524829520687*^9, 
   3.709524831082776*^9}, {3.7095248810376334`*^9, 3.7095248961394973`*^9}, {
   3.7095307580707808`*^9, 3.7095307586068115`*^9}, 3.7095740014044023`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["U:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "2"]}]}]], " ", 
     SuperscriptBox[
      RowBox[{"Erf", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], "]"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599747210503`*^9, 
   3.574959977251054*^9}, {3.5749623575343857`*^9, 3.574962357714386*^9}, {
   3.709496431124798*^9, 3.7094964681639166`*^9}, {3.7094965854246235`*^9, 
   3.7094966309032245`*^9}, {3.709496817792914*^9, 3.7094968184269505`*^9}, 
   3.709496861764429*^9, 3.709497619956795*^9, 3.7094978048083677`*^9, {
   3.7095250460710726`*^9, 3.7095250466071033`*^9}, {3.72308161435847*^9, 
   3.7230816148364973`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494271052164215*^9, {
   3.494271408804714*^9, 3.494271432974748*^9}, {3.574959991751074*^9, 
   3.574959994221077*^9}, {3.7094966272650166`*^9, 3.70949663694657*^9}, 
   3.709496866025673*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"c", "+", 
     RowBox[{"d", " ", 
      SuperscriptBox["x", "2"]}]}]], " ", 
   SuperscriptBox[
    RowBox[{"Erf", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", 
          SuperscriptBox["x", "2"]}]}]], " ", 
       SuperscriptBox[
        RowBox[{"Erf", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], "]"}], "n"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4942711908644094`*^9, 3.494271193814413*^9}, {
   3.4942712250044575`*^9, 3.49427123430447*^9}, {3.7094964805636253`*^9, 
   3.7094964864139605`*^9}, {3.709496882167596*^9, 3.7094968843107185`*^9}, {
   3.7094976601560946`*^9, 3.7094976630952625`*^9}, {3.70949780694249*^9, 
   3.709497808778595*^9}, {3.709525061460953*^9, 3.709525065128163*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erf", "[", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"E", "^", 
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", 
          RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
      RowBox[{
       RowBox[{"Erf", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}]}], "]"}], "^", "n"}]}], ",", "x"}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", 
     "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494271202714426*^9, 
   3.5488204906868124`*^9, 3.548820589576951*^9, {3.709496496425533*^9, 
   3.70949652539719*^9}, {3.709496657122724*^9, 3.709496666931285*^9}, {
   3.709496911895296*^9, 3.7094969140614204`*^9}, {3.709496947546335*^9, 
   3.709496951560565*^9}, {3.7094969955630817`*^9, 3.709497023468678*^9}, {
   3.7094977199075117`*^9, 3.709497771520464*^9}, {3.709497817448091*^9, 
   3.709497857803399*^9}, 3.709499517477326*^9, {3.709525068662365*^9, 
   3.7095250867934017`*^9}, 3.7123387832003193`*^9, 3.7155508564353485`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erfc", "[", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"E", "^", 
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", 
          RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
      RowBox[{
       RowBox[{"Erfc", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}]}], "]"}], "^", "n"}]}], ",", "x"}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", 
     "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494271202714426*^9, 
   3.5488204906868124`*^9, 3.548820589576951*^9, {3.709496496425533*^9, 
   3.70949652539719*^9}, {3.709496657122724*^9, 3.709496666931285*^9}, {
   3.709496911895296*^9, 3.7094969140614204`*^9}, {3.709496947546335*^9, 
   3.709496951560565*^9}, {3.7094969955630817`*^9, 3.709497023468678*^9}, {
   3.7094977199075117`*^9, 3.709497771520464*^9}, {3.709497817448091*^9, 
   3.7094978782315674`*^9}, 3.709499518839404*^9, {3.709525071288515*^9, 
   3.7095250848172894`*^9}, 3.7123387832083197`*^9, 3.715550856445349*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erfi", "[", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"E", "^", 
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", 
          RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
      RowBox[{
       RowBox[{"Erfi", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}]}], "]"}], "^", "n"}]}], ",", "x"}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", 
     "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494271202714426*^9, 
   3.5488204906868124`*^9, 3.548820589576951*^9, {3.709496496425533*^9, 
   3.70949652539719*^9}, {3.709496657122724*^9, 3.709496666931285*^9}, {
   3.709496911895296*^9, 3.7094969140614204`*^9}, {3.709496947546335*^9, 
   3.709496951560565*^9}, {3.7094969955630817`*^9, 3.709497023468678*^9}, {
   3.7094977199075117`*^9, 3.709497771520464*^9}, {3.709497817448091*^9, 
   3.709497883534871*^9}, 3.709499520394493*^9, {3.7095250734186373`*^9, 
   3.709525083019186*^9}, 3.71233878321732*^9, 3.7155508564543495`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["4.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"e", " ", "x"}], ")"}], "m"], " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", 
       SuperscriptBox["x", "2"]}]}]], " ", 
    SuperscriptBox[
     RowBox[{"Erf", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.574961534083233*^9}, {
   3.5749624306844883`*^9, 3.57496245323452*^9}, 3.7094967868381433`*^9, {
   3.709497602398791*^9, 3.7094976398549333`*^9}, {3.709497795152816*^9, 
   3.7094977978639708`*^9}, {3.7095251211553674`*^9, 3.709525121329377*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "2"]}]}]], " ", 
     RowBox[{"Erf", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.574961534083233*^9}, {
   3.5749624306844883`*^9, 3.574962491234573*^9}, {3.709429465283059*^9, 
   3.7094294689942713`*^9}, 3.70949746146873*^9, {3.7094975463215837`*^9, 
   3.709497546538596*^9}, 3.7094976112072945`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "2"]}]}]], " ", 
     RowBox[{"Erf", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.574961534083233*^9}, {
   3.5749624306844883`*^9, 3.574962491234573*^9}, {3.709429465283059*^9, 
   3.7094294689942713`*^9}, 3.70949746146873*^9, 3.7094975492597513`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{"x", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "2"]}]}]], 
     RowBox[{"Erf", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749600896012106`*^9, 
   3.5749600984512234`*^9}, 3.5749624335044923`*^9, {3.5749624950845785`*^9, 
   3.5749624980945826`*^9}, 3.7094974649569297`*^9, 3.709497550213806*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494272613616401*^9, 3.494272615776404*^9}, 
   3.54915468919398*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"\[Integral]", 
    RowBox[{"x", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "2"]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}], "\[Equal]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"2", " ", "d"}]], 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", 
       SuperscriptBox["x", "2"]}]}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{{3.495321995009364*^9, 3.4953220146593914`*^9}, {
   3.495322060049455*^9, 3.4953220695394683`*^9}, 3.4953324529433327`*^9, 
   3.4953341264356756`*^9, {3.5488752985704317`*^9, 3.5488752985704317`*^9}, {
   3.548882905755931*^9, 3.548882921645953*^9}, {3.549155121052738*^9, 
   3.5491551713784266`*^9}, {3.5491552023444805`*^9, 
   3.5491552033272824`*^9}, {3.549155317410283*^9, 3.5491553280495014`*^9}, {
   3.5491562305658855`*^9, 3.5491562330306892`*^9}, {3.5491562786607695`*^9, 
   3.5491563193768415`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"Erf", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}]}], "\[Equal]", 
   RowBox[{
    FractionBox[
     RowBox[{"2", " ", "b"}], 
     SqrtBox["\[Pi]"]], 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["a", "2"]}], "-", 
      RowBox[{"2", " ", "a", " ", "b", " ", "x"}], "-", 
      RowBox[{
       SuperscriptBox["b", "2"], " ", 
       SuperscriptBox["x", "2"]}]}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{{3.495321995009364*^9, 3.4953220146593914`*^9}, {
   3.495322060049455*^9, 3.4953220695394683`*^9}, 3.4953324529433327`*^9, 
   3.4953341264356756`*^9, {3.5488752985704317`*^9, 3.5488752985704317`*^9}, {
   3.548882905755931*^9, 3.548882921645953*^9}, {3.549155121052738*^9, 
   3.5491551713784266`*^9}, {3.5491552023444805`*^9, 
   3.5491552215481143`*^9}, {3.5491552539649715`*^9, 3.549155283480223*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494271052164215*^9, {
   3.494271408804714*^9, 3.494271432974748*^9}, 3.494272839336717*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{"x", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", 
       SuperscriptBox["x", "2"]}]}]], 
    RowBox[{"Erf", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", 
           SuperscriptBox["x", "2"]}]}]], 
        RowBox[{"Erf", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], "]"}]}], 
       RowBox[{"2", " ", "d"}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox["b", 
    RowBox[{"d", " ", 
     SqrtBox["\[Pi]"]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["a", "2"]}], "+", "c", "-", 
       RowBox[{"2", " ", "a", " ", "b", " ", "x"}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["b", "2"], "-", "d"}], ")"}], " ", 
        SuperscriptBox["x", "2"]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.494271065404234*^9, 3.494271092894272*^9}, {
   3.4942713522746353`*^9, 3.494271366464655*^9}, {3.494272688416506*^9, 
   3.494272704556528*^9}, 3.4942728202566905`*^9, {3.5491539016313972`*^9, 
   3.5491539591798987`*^9}, {3.5491540024699745`*^9, 3.549154038599638*^9}, {
   3.5491543671314144`*^9, 3.5491544691399937`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"x_", "*", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{"Erf", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", 
         RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erf", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "d"}], ")"}]}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"Sqrt", "[", "Pi", "]"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"a", "^", "2"}]}], "+", "c", "-", 
          RowBox[{"2", "*", "a", "*", "b", "*", "x"}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"b", "^", "2"}], "-", "d"}], ")"}], "*", 
           RowBox[{"x", "^", "2"}]}]}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], 
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.494272554176318*^9, {3.494273261227308*^9, 
   3.49427326985732*^9}, 3.5488205056468334`*^9, {3.5488206138869853`*^9, 
   3.548820623646999*^9}, {3.549154505035657*^9, 3.549154594002613*^9}, 
   3.5491546490863094`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"x_", "*", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{"Erfc", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", 
         RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erfc", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "d"}], ")"}]}]}], " ", "+", " ", "\n", "  ", 
    RowBox[{
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"Sqrt", "[", "Pi", "]"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"a", "^", "2"}]}], "+", "c", "-", 
          RowBox[{"2", "*", "a", "*", "b", "*", "x"}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"b", "^", "2"}], "-", "d"}], ")"}], "*", 
           RowBox[{"x", "^", "2"}]}]}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], 
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.494272554176318*^9, {3.494273261227308*^9, 
   3.49427326985732*^9}, 3.5488205056468334`*^9, {3.5488206138869853`*^9, 
   3.548820623646999*^9}, {3.549154505035657*^9, 3.549154594002613*^9}, 
   3.5491546490863094`*^9, {3.5491594025253897`*^9, 3.549159403245391*^9}, 
   3.5491594949755197`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"x_", "*", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{"Erfi", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", 
         RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erfi", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "d"}], ")"}]}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"Sqrt", "[", "Pi", "]"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "^", "2"}], "+", "c", "+", 
          RowBox[{"2", "*", "a", "*", "b", "*", "x"}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"b", "^", "2"}], "+", "d"}], ")"}], "*", 
           RowBox[{"x", "^", "2"}]}]}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], 
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.494272554176318*^9, {3.494273261227308*^9, 
   3.49427326985732*^9}, 3.5488205056468334`*^9, {3.5488206138869853`*^9, 
   3.548820623646999*^9}, {3.549154505035657*^9, 3.549154594002613*^9}, 
   3.5491546490863094`*^9, {3.5491597039058123`*^9, 3.549159704345813*^9}, {
   3.549159777395915*^9, 3.549159785745927*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "2"]}]}]], 
     RowBox[{"Erf", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "-", "1"}], "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.574960118541251*^9, 
   3.5749601288012657`*^9}, 3.574962434224493*^9, 3.574962499334584*^9, {
   3.7094288250314384`*^9, 3.7094288250314384`*^9}, 3.709497473846438*^9, 
   3.7094975508508425`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{3.4941724567488375`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"\[Integral]", 
    RowBox[{"x", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "2"]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}], "\[Equal]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"2", " ", "d"}]], 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", 
       SuperscriptBox["x", "2"]}]}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{{3.495321995009364*^9, 3.4953220146593914`*^9}, {
   3.495322060049455*^9, 3.4953220695394683`*^9}, 3.4953324529433327`*^9, 
   3.4953341264356756`*^9, {3.5488752985704317`*^9, 3.5488752985704317`*^9}, {
   3.548882905755931*^9, 3.548882921645953*^9}, {3.549155121052738*^9, 
   3.5491551713784266`*^9}, {3.5491552023444805`*^9, 
   3.5491552033272824`*^9}, {3.549155317410283*^9, 3.5491553280495014`*^9}, {
   3.5491563354760695`*^9, 3.5491563354760695`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["x", 
       RowBox[{"m", "-", "1"}]], " ", 
      RowBox[{"Erf", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], "]"}]}], ")"}]}], "\[Equal]", 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"2", " ", "b"}], 
      SqrtBox["\[Pi]"]], 
     SuperscriptBox["x", 
      RowBox[{"m", "-", "1"}]], 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["a", "2"]}], "-", 
       RowBox[{"2", " ", "a", " ", "b", " ", "x"}], "-", 
       RowBox[{
        SuperscriptBox["b", "2"], " ", 
        SuperscriptBox["x", "2"]}]}]]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"m", "-", "1"}], ")"}], " ", 
     SuperscriptBox["x", 
      RowBox[{"m", "-", "2"}]], " ", 
     RowBox[{"Erf", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{{3.495321995009364*^9, 3.4953220146593914`*^9}, {
   3.495322060049455*^9, 3.4953220695394683`*^9}, 3.4953324529433327`*^9, 
   3.4953341264356756`*^9, {3.5488752985704317`*^9, 3.5488752985704317`*^9}, {
   3.548882905755931*^9, 3.548882921645953*^9}, {3.549155121052738*^9, 
   3.5491551713784266`*^9}, {3.5491552023444805`*^9, 
   3.5491552215481143`*^9}, {3.5491552539649715`*^9, 3.549155283480223*^9}, {
   3.549156363259718*^9, 3.5491563873461604`*^9}, {3.54915642703263*^9, 
   3.54915646100949*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "-", "1"}], "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4942714693347993`*^9, 
   3.4942715340348897`*^9}, {3.4942715837849593`*^9, 
   3.4942715950249753`*^9}, {3.4942716458250465`*^9, 3.494271658445064*^9}, 
   3.494272339896018*^9, {3.4942728903967886`*^9, 3.4942728958867965`*^9}, {
   3.709428808295481*^9, 3.7094288153418846`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", 
       SuperscriptBox["x", "2"]}]}]], 
    RowBox[{"Erf", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        SuperscriptBox["x", 
         RowBox[{"m", "-", "1"}]], 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", 
           SuperscriptBox["x", "2"]}]}]], 
        RowBox[{"Erf", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], "]"}]}], 
       RowBox[{"2", " ", "d"}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox["b", 
    RowBox[{"d", " ", 
     SqrtBox["\[Pi]"]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", 
      RowBox[{"m", "-", "1"}]], 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["a", "2"]}], "+", "c", "-", 
       RowBox[{"2", " ", "a", " ", "b", " ", "x"}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["b", "2"], "-", "d"}], ")"}], " ", 
        SuperscriptBox["x", "2"]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"m", "-", "1"}], 
    RowBox[{"2", " ", "d"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", 
      RowBox[{"m", "-", "2"}]], 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "2"]}]}]], 
     RowBox[{"Erf", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4942717172451463`*^9, {3.494271937915455*^9, 
   3.494271942875462*^9}, 3.4942726926265116`*^9, 3.4942730666870356`*^9, {
   3.549156130210909*^9, 3.5491561470901384`*^9}, {3.5491565143459835`*^9, 
   3.5491565720192847`*^9}, {3.549156609646551*^9, 3.5491566492706203`*^9}, 
   3.5491567233863506`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_"}], "*", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{"Erf", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}]}], "*", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", 
         RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erf", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "d"}], ")"}]}]}], " ", "-", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"Sqrt", "[", "Pi", "]"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "1"}], ")"}]}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"a", "^", "2"}]}], "+", "c", "-", 
           RowBox[{"2", "*", "a", "*", "b", "*", "x"}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"b", "^", "2"}], "-", "d"}], ")"}], "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}]}], ",", "x"}], "]"}]}], " ", 
    "-", " ", "\[IndentingNewLine]", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "d"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "2"}], ")"}]}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erf", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942716088849945`*^9, 
   3.49427256278633*^9, 3.49427327726733*^9, {3.5488205093368387`*^9, 
   3.5488205110868406`*^9}, {3.548820636657017*^9, 3.5488206421270247`*^9}, {
   3.549156766380026*^9, 3.5491567931340733`*^9}, 3.549156869184207*^9, {
   3.7094287980898976`*^9, 3.709428804287252*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_"}], "*", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{"Erfc", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}]}], "*", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", 
         RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erfc", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "d"}], ")"}]}]}], " ", "+", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"Sqrt", "[", "Pi", "]"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "1"}], ")"}]}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"a", "^", "2"}]}], "+", "c", "-", 
           RowBox[{"2", "*", "a", "*", "b", "*", "x"}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"b", "^", "2"}], "-", "d"}], ")"}], "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}]}], ",", "x"}], "]"}]}], " ", 
    "-", " ", "\[IndentingNewLine]", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "d"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "2"}], ")"}]}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erfc", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942716088849945`*^9, 
   3.49427256278633*^9, 3.49427327726733*^9, {3.5488205093368387`*^9, 
   3.5488205110868406`*^9}, {3.548820636657017*^9, 3.5488206421270247`*^9}, {
   3.549156766380026*^9, 3.5491567931340733`*^9}, 3.549156869184207*^9, {
   3.549159407335397*^9, 3.549159408805399*^9}, 3.5491595365555778`*^9, 
   3.7094288325848703`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_"}], "*", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{"Erfi", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}]}], "*", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", 
         RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erfi", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "d"}], ")"}]}]}], " ", "-", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"Sqrt", "[", "Pi", "]"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "1"}], ")"}]}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a", "^", "2"}], "+", "c", "+", 
           RowBox[{"2", "*", "a", "*", "b", "*", "x"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"b", "^", "2"}], "+", "d"}], ")"}], "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}]}], ",", "x"}], "]"}]}], " ", 
    "-", " ", "\[IndentingNewLine]", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "d"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "2"}], ")"}]}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erfi", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942716088849945`*^9, 
   3.49427256278633*^9, 3.49427327726733*^9, {3.5488205093368387`*^9, 
   3.5488205110868406`*^9}, {3.548820636657017*^9, 3.5488206421270247`*^9}, {
   3.549156766380026*^9, 3.5491567931340733`*^9}, 3.549156869184207*^9, {
   3.549159707235817*^9, 3.549159708075818*^9}, {3.549159876266053*^9, 
   3.549159883936064*^9}, 3.709428834176962*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "2"]}]}]], " ", 
     RowBox[{"Erf", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.574961534083233*^9}, {
   3.5749624306844883`*^9, 3.574962491234573*^9}, {3.5749626508247967`*^9, 
   3.574962654264801*^9}, {3.7094294375084705`*^9, 3.709429441020671*^9}, 
   3.709497474590481*^9, 3.7094975514558773`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", 
          SuperscriptBox["x", "2"]}]}]], " ", 
       RowBox[{"Erf", "[", 
        RowBox[{"b", " ", "x"}], "]"}]}], "x"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"d", "\[Equal]", 
       SuperscriptBox["b", "2"]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.5749616507633963`*^9, 
   3.5749616802734375`*^9}, 3.5749626407247825`*^9, 3.5749626887048492`*^9, {
   3.5749628029250097`*^9, 3.5749628467550707`*^9}, {3.5749629957552795`*^9, 
   3.574962998955284*^9}, 3.709497475156513*^9, 3.709497552043911*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"Erfc", "[", "z", "]"}], "\[Equal]", 
   RowBox[{"1", "-", 
    RowBox[{"Erf", "[", "z", "]"}]}]}]],
  CellDingbat->None,
  CellChangeTimes->{
   3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
    3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
    3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
    3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
    3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
    3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
    3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
    3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
    3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
    3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
    3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
    3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
    3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
    3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
    3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
    3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
    3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
    3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
    3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
    3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
    3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9},
     3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
    3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
    3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
    3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
    3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
    3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
    3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
    3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
    3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
    3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
    3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
    3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
    3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
    3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
    3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
    3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
    3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
    3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
    3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9},
     3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
    3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
    3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
    3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
    3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
    3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
    3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
    3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
    3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
    3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
    3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
    3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
    3.574959999411084*^9}, 3.574961543243246*^9, {3.5749616507633963`*^9, 
    3.5749616802734375`*^9}},
  FontSize->12,
  FontWeight->"Bold"]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494271052164215*^9, {
   3.494271408804714*^9, 3.494271432974748*^9}, {3.574959991751074*^9, 
   3.574959994221077*^9}, 3.574961755703543*^9, {3.5749640466067505`*^9, 
   3.5749640855468054`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"d", "\[Equal]", 
   SuperscriptBox["b", "2"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4942714693347993`*^9, 
   3.4942715340348897`*^9}, {3.4942715837849593`*^9, 
   3.4942715950249753`*^9}, {3.4942716458250465`*^9, 3.494271658445064*^9}, {
   3.494271809215275*^9, 3.494271810105276*^9}, {3.4942730894970675`*^9, 
   3.4942731037070875`*^9}, {3.5491587383546886`*^9, 
   3.5491587383546886`*^9}, {3.5749629139251647`*^9, 
   3.5749629139251647`*^9}, {3.5749630043852916`*^9, 3.5749630043852916`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "2"]}]}]], " ", 
     RowBox[{"Erf", "[", 
      RowBox[{"b", " ", "x"}], "]"}]}], "x"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{"2", " ", "b", " ", 
       SuperscriptBox["\[ExponentialE]", "c"], " ", "x"}], 
      SqrtBox["\[Pi]"]]}]}], 
   RowBox[{"HypergeometricPFQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       FractionBox["1", "2"], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       FractionBox["3", "2"], ",", 
       FractionBox["3", "2"]}], "}"}], ",", 
     RowBox[{
      SuperscriptBox["b", "2"], " ", 
      SuperscriptBox["x", "2"]}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.494271065404234*^9, 3.494271092894272*^9}, {
   3.4942713522746353`*^9, 3.494271366464655*^9}, 3.494275024729777*^9, {
   3.574961703833471*^9, 3.5749617330935116`*^9}, 3.5749628921251345`*^9, 
   3.574962955625223*^9, 3.5749638049564123`*^9, 3.7095249550978694`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erf", "[", 
       RowBox[{"b_.", "*", "x_"}], "]"}], "/", "x_"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"2", "*", "b", "*", 
    RowBox[{"E", "^", "c"}], "*", 
    RowBox[{"x", "/", 
     RowBox[{"Sqrt", "[", "Pi", "]"}]}], "*", 
    RowBox[{"HypergeometricPFQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"1", "/", "2"}], ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"3", "/", "2"}], ",", 
        RowBox[{"3", "/", "2"}]}], "}"}], ",", 
      RowBox[{
       RowBox[{"b", "^", "2"}], "*", 
       RowBox[{"x", "^", "2"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"d", ",", 
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, 3.5749630438453465`*^9, {
   3.574963184685544*^9, 3.5749632221155963`*^9}, 3.5749637688063617`*^9, 
   3.7061415974082584`*^9, 3.7094288405373254`*^9, {3.7095249412010746`*^9, 
   3.7095249420871253`*^9}, 3.7095740402524576`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erfc", "[", 
       RowBox[{"b_.", "*", "x_"}], "]"}], "/", "x_"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", 
           RowBox[{"x", "^", "2"}]}]}], ")"}]}], "/", "x"}], ",", "x"}], 
     "]"}], " ", "-", " ", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", 
           RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
       RowBox[{
        RowBox[{"Erf", "[", 
         RowBox[{"b", "*", "x"}], "]"}], "/", "x"}]}], ",", "x"}], "]"}]}], 
   " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"d", ",", 
      RowBox[{"b", "^", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, {3.5749619205737743`*^9, 
   3.574961932543791*^9}, 3.5749620709339848`*^9, {3.574963566686079*^9, 
   3.574963572016086*^9}, {3.574963616246148*^9, 3.574963640366182*^9}, 
   3.5749636869962473`*^9, 3.7061415974182587`*^9, 3.709428842765453*^9, 
   3.70957404884347*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erfi", "[", 
       RowBox[{"b_.", "*", "x_"}], "]"}], "/", "x_"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"2", "*", "b", "*", 
    RowBox[{"E", "^", "c"}], "*", 
    RowBox[{"x", "/", 
     RowBox[{"Sqrt", "[", "Pi", "]"}]}], "*", 
    RowBox[{"HypergeometricPFQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"1", "/", "2"}], ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"3", "/", "2"}], ",", 
        RowBox[{"3", "/", "2"}]}], "}"}], ",", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"b", "^", "2"}]}], "*", 
       RowBox[{"x", "^", "2"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"d", ",", 
      RowBox[{"-", 
       RowBox[{"b", "^", "2"}]}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, 3.5749630438453465`*^9, {
   3.574963184685544*^9, 3.5749632221155963`*^9}, {3.5749632624556527`*^9, 
   3.574963268425661*^9}, 3.574963775356371*^9, 3.7061415974282584`*^9, {
   3.7094288530920434`*^9, 3.7094288542741113`*^9}, {3.7095249638553705`*^9, 
   3.7095249649094305`*^9}, 3.709574051083473*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "2"]}]}]], 
     RowBox[{"Erf", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "+", "1"}], "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749601413612833`*^9, 
   3.574960145551289*^9}, 3.574962434874494*^9, 3.5749626417547836`*^9, {
   3.709429101333242*^9, 3.709429101334242*^9}, 3.7094974757615476`*^9, 
   3.7094975526219435`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Inverted integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, 3.494271795645256*^9, {3.4942725825463576`*^9, 
   3.4942725917163706`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "+", "1"}], "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4942714693347993`*^9, 
   3.4942715340348897`*^9}, {3.4942715837849593`*^9, 
   3.4942715950249753`*^9}, {3.4942716458250465`*^9, 3.494271658445064*^9}, {
   3.494271809215275*^9, 3.494271810105276*^9}, {3.4942730894970675`*^9, 
   3.4942731037070875`*^9}, {3.5491587383546886`*^9, 
   3.5491587383546886`*^9}, {3.709429081556111*^9, 3.7094290892275496`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", 
       SuperscriptBox["x", "2"]}]}]], 
    RowBox[{"Erf", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        SuperscriptBox["x", 
         RowBox[{"m", "+", "1"}]], 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", 
           SuperscriptBox["x", "2"]}]}]], 
        RowBox[{"Erf", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], "]"}]}], 
       RowBox[{"m", "+", "1"}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"2", "b"}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}], 
     SqrtBox["\[Pi]"]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", 
      RowBox[{"m", "+", "1"}]], 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["a", "2"]}], "+", "c", "-", 
       RowBox[{"2", " ", "a", " ", "b", " ", "x"}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["b", "2"], "-", "d"}], ")"}], " ", 
        SuperscriptBox["x", "2"]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"2", " ", "d"}], 
    RowBox[{"m", "+", "1"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", 
      RowBox[{"m", "+", "2"}]], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "2"]}]}]], 
     RowBox[{"Erf", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, 3.4942717172451463`*^9, {3.494271937915455*^9, 
   3.494271942875462*^9}, 3.4942726926265116`*^9, 3.4942730666870356`*^9, {
   3.549156130210909*^9, 3.5491561470901384`*^9}, {3.5491565143459835`*^9, 
   3.5491565720192847`*^9}, {3.549156609646551*^9, 3.5491566492706203`*^9}, 
   3.5491567233863506`*^9, {3.549157145663492*^9, 3.549157284971737*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_"}], "*", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{"Erf", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", 
         RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erf", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}]}], " ", "-", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"2", "*", 
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}], "*", 
        RowBox[{"Sqrt", "[", "Pi", "]"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"a", "^", "2"}]}], "+", "c", "-", 
           RowBox[{"2", "*", "a", "*", "b", "*", "x"}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"b", "^", "2"}], "-", "d"}], ")"}], "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}]}], ",", "x"}], "]"}]}], " ", 
    "-", " ", "\n", "  ", 
    RowBox[{"2", "*", 
     RowBox[{"d", "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "2"}], ")"}]}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erf", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"ILtQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942716088849945`*^9, 
   3.494271801415264*^9, 3.494272572126343*^9, 3.4942732811973352`*^9, {
   3.548820516456848*^9, 3.5488205180168505`*^9}, {3.5488206478870325`*^9, 
   3.548820651587038*^9}, {3.549158410020912*^9, 3.5491584190845284`*^9}, {
   3.5491587002126217`*^9, 3.549158724189864*^9}, {3.709429043356926*^9, 
   3.7094290634030724`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_"}], "*", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{"Erfc", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", 
         RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erfc", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}]}], " ", "+", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"2", "*", 
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}], "*", 
        RowBox[{"Sqrt", "[", "Pi", "]"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"a", "^", "2"}]}], "+", "c", "-", 
           RowBox[{"2", "*", "a", "*", "b", "*", "x"}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"b", "^", "2"}], "-", "d"}], ")"}], "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}]}], ",", "x"}], "]"}]}], " ", 
    "-", " ", "\n", "  ", 
    RowBox[{"2", "*", 
     RowBox[{"d", "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "2"}], ")"}]}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erfc", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"ILtQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942716088849945`*^9, 
   3.494271801415264*^9, 3.494272572126343*^9, 3.4942732811973352`*^9, {
   3.548820516456848*^9, 3.5488205180168505`*^9}, {3.5488206478870325`*^9, 
   3.548820651587038*^9}, {3.549158410020912*^9, 3.5491584190845284`*^9}, {
   3.5491587002126217`*^9, 3.549158724189864*^9}, {3.549159416115409*^9, 
   3.549159418675413*^9}, 3.5491596278657055`*^9, 3.709429071417531*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_"}], "*", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{"Erfi", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", 
         RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erfi", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}]}], " ", "-", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"2", "*", 
     RowBox[{"b", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}], "*", 
        RowBox[{"Sqrt", "[", "Pi", "]"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a", "^", "2"}], "+", "c", "+", 
           RowBox[{"2", "*", "a", "*", "b", "*", "x"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"b", "^", "2"}], "+", "d"}], ")"}], "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}]}], ",", "x"}], "]"}]}], " ", 
    "-", " ", "\n", "  ", 
    RowBox[{"2", "*", 
     RowBox[{"d", "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "2"}], ")"}]}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erfi", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"ILtQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942716088849945`*^9, 
   3.494271801415264*^9, 3.494272572126343*^9, 3.4942732811973352`*^9, {
   3.548820516456848*^9, 3.5488205180168505`*^9}, {3.5488206478870325`*^9, 
   3.548820651587038*^9}, {3.549158410020912*^9, 3.5491584190845284`*^9}, {
   3.5491587002126217`*^9, 3.549158724189864*^9}, {3.549159710085821*^9, 
   3.5491597110658216`*^9}, 3.549159951076158*^9, 3.7094290742006903`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["U:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"e", " ", "x"}], ")"}], "m"], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "2"]}]}]], " ", 
     SuperscriptBox[
      RowBox[{"Erf", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], "]"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599747210503`*^9, 
   3.574959977251054*^9}, {3.5749623575343857`*^9, 3.574962357714386*^9}, {
   3.709496431124798*^9, 3.7094964681639166`*^9}, {3.7094965854246235`*^9, 
   3.7094966309032245`*^9}, {3.709496817792914*^9, 3.7094968184269505`*^9}, 
   3.709496861764429*^9, 3.709497619956795*^9, 3.7094978048083677`*^9, {
   3.7230815816425986`*^9, 3.723081585248805*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494271052164215*^9, {
   3.494271408804714*^9, 3.494271432974748*^9}, {3.574959991751074*^9, 
   3.574959994221077*^9}, {3.7094966272650166`*^9, 3.70949663694657*^9}, 
   3.709496866025673*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"e", " ", "x"}], ")"}], "m"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"c", "+", 
     RowBox[{"d", " ", 
      SuperscriptBox["x", "2"]}]}]], " ", 
   SuperscriptBox[
    RowBox[{"Erf", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"e", " ", "x"}], ")"}], "m"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", 
          SuperscriptBox["x", "2"]}]}]], " ", 
       SuperscriptBox[
        RowBox[{"Erf", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], "]"}], "n"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4942711908644094`*^9, 3.494271193814413*^9}, {
   3.4942712250044575`*^9, 3.49427123430447*^9}, {3.7094964805636253`*^9, 
   3.7094964864139605`*^9}, {3.709496882167596*^9, 3.7094968843107185`*^9}, {
   3.7094976601560946`*^9, 3.7094976630952625`*^9}, {3.70949780694249*^9, 
   3.709497808778595*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_.", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erf", "[", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"e", "*", "x"}], ")"}], "^", "m"}], "*", 
      RowBox[{"E", "^", 
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", 
          RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
      RowBox[{
       RowBox[{"Erf", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}]}], "]"}], "^", "n"}]}], ",", "x"}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n"}], 
      "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494271202714426*^9, 
   3.5488204906868124`*^9, 3.548820589576951*^9, {3.709496496425533*^9, 
   3.70949652539719*^9}, {3.709496657122724*^9, 3.709496666931285*^9}, {
   3.709496911895296*^9, 3.7094969140614204`*^9}, {3.709496947546335*^9, 
   3.709496951560565*^9}, {3.7094969955630817`*^9, 3.709497023468678*^9}, {
   3.7094977199075117`*^9, 3.709497771520464*^9}, {3.709497817448091*^9, 
   3.709497857803399*^9}, 3.709499517477326*^9, 3.712338783341327*^9, 
   3.7155508565523553`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_.", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erfc", "[", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"e", "*", "x"}], ")"}], "^", "m"}], "*", 
      RowBox[{"E", "^", 
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", 
          RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
      RowBox[{
       RowBox[{"Erfc", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}]}], "]"}], "^", "n"}]}], ",", "x"}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n"}], 
      "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494271202714426*^9, 
   3.5488204906868124`*^9, 3.548820589576951*^9, {3.709496496425533*^9, 
   3.70949652539719*^9}, {3.709496657122724*^9, 3.709496666931285*^9}, {
   3.709496911895296*^9, 3.7094969140614204`*^9}, {3.709496947546335*^9, 
   3.709496951560565*^9}, {3.7094969955630817`*^9, 3.709497023468678*^9}, {
   3.7094977199075117`*^9, 3.709497771520464*^9}, {3.709497817448091*^9, 
   3.7094978782315674`*^9}, 3.709499518839404*^9, 3.7123387833493276`*^9, 
   3.715550856562356*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_.", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erfi", "[", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"e", "*", "x"}], ")"}], "^", "m"}], "*", 
      RowBox[{"E", "^", 
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", 
          RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
      RowBox[{
       RowBox[{"Erfi", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}]}], "]"}], "^", "n"}]}], ",", "x"}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n"}], 
      "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494271202714426*^9, 
   3.5488204906868124`*^9, 3.548820589576951*^9, {3.709496496425533*^9, 
   3.70949652539719*^9}, {3.709496657122724*^9, 3.709496666931285*^9}, {
   3.709496911895296*^9, 3.7094969140614204`*^9}, {3.709496947546335*^9, 
   3.709496951560565*^9}, {3.7094969955630817`*^9, 3.709497023468678*^9}, {
   3.7094977199075117`*^9, 3.709497771520464*^9}, {3.709497817448091*^9, 
   3.709497883534871*^9}, 3.709499520394493*^9, 3.712338783358328*^9, 
   3.715550856572356*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["5.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{"u", " ", 
    RowBox[{"Erf", "[", 
     RowBox[{"d", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
   3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9, 
   3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
   3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9, 
   3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
   3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9, 
   3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9, 
   3.574879760588297*^9}, {3.57488723261541*^9, 3.5748872327854104`*^9}, 
   3.574887727776103*^9, {3.5749614948631783`*^9, 3.574961534083233*^9}, {
   3.5749624306844883`*^9, 3.57496245323452*^9}, 3.7094967868381433`*^9, {
   3.709497602398791*^9, 3.7094976398549333`*^9}, {3.709497795152816*^9, 
   3.7094977978639708`*^9}, {3.7095251211553674`*^9, 3.709525121329377*^9}, {
   3.7230827547896986`*^9, 3.723082766892391*^9}, {3.723340876669216*^9, 
   3.723340882141529*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"Erf", "[", 
      RowBox[{"d", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Log", "[", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, 3.7094292446364384`*^9, 
   3.709496691964717*^9, 3.709496740529495*^9, {3.723081681033283*^9, 
   3.723081692283927*^9}, {3.723082505411435*^9, 3.7230825282757425`*^9}, 
   3.7230827268050985`*^9, {3.7230827704735956`*^9, 3.7230827718686757`*^9}, 
   3.723340912526267*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{3.4941724567488375`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"Erf", "[", 
     RowBox[{"d", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}]}], 
   "\[Equal]", 
   FractionBox[
    RowBox[{"2", " ", "b", " ", "d", " ", "n"}], 
    RowBox[{
     SqrtBox["\[Pi]"], " ", "x", " ", 
     SuperscriptBox["\[ExponentialE]", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"d", " ", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"Log", "[", 
             RowBox[{"c", " ", 
              SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], ")"}], 
       "2"]]}]]}]],
  CellChangeTimes->{{3.723081786820334*^9, 3.723081824585494*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.7230818341590414`*^9, 3.7230818410724373`*^9}, {
   3.723081935599844*^9, 3.723081935599844*^9}, {3.723340913052297*^9, 
   3.7233409143483715`*^9}, {3.723341010328861*^9, 3.723341010328861*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494271052164215*^9, {
   3.494271408804714*^9, 3.494271432974748*^9}, {3.574959991751074*^9, 
   3.574959994221077*^9}, {3.7230903530142927`*^9, 3.723090353195303*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"Erf", "[", 
     RowBox[{"d", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "x"}]}], " ", 
    RowBox[{"Erf", "[", 
     RowBox[{"d", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"2", " ", "b", " ", "d", " ", "n"}], 
    SqrtBox["\[Pi]"]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      SuperscriptBox["\[ExponentialE]", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"d", " ", 
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", 
             RowBox[{"Log", "[", 
              RowBox[{"c", " ", 
               SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], ")"}], "2"]]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.494271065404234*^9, 3.494271092894272*^9}, {
   3.4942713522746353`*^9, 3.494271366464655*^9}, 3.494275024729777*^9, {
   3.7094292468135633`*^9, 3.709429263753532*^9}, {3.723081710084945*^9, 
   3.72308175719864*^9}, {3.723081856148299*^9, 3.7230819091783323`*^9}, 
   3.723081945182392*^9, {3.7230820167834873`*^9, 3.7230820234358673`*^9}, {
   3.7230825485209007`*^9, 3.7230825772195425`*^9}, 3.7230831000334454`*^9, {
   3.7233409149674063`*^9, 3.7233409160554686`*^9}, {3.7233410165632176`*^9, 
   3.723341017028244*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"Erf", "[", 
     RowBox[{"d_.", "*", 
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}]}], "]"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "*", 
     RowBox[{"Erf", "[", 
      RowBox[{"d", "*", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], "]"}]}], " ", "-", 
    " ", 
    RowBox[{"2", "*", "b", "*", "d", "*", 
     RowBox[{"n", "/", 
      RowBox[{"(", 
       RowBox[{"Sqrt", "[", "Pi", "]"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"1", "/", 
        RowBox[{"E", "^", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"d", "*", 
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"b", "*", 
               RowBox[{"Log", "[", 
                RowBox[{"c", "*", 
                 RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], ")"}], "^", 
          "2"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", 
     "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, 3.706141678638372*^9, {3.7094287716213837`*^9, 
   3.7094287721314125`*^9}, {3.7094292930112057`*^9, 3.709429371395689*^9}, {
   3.7230820310533037`*^9, 3.7230820319793563`*^9}, {3.7230821266387706`*^9, 
   3.723082158833612*^9}, 3.7230822088254714`*^9, {3.72308260462811*^9, 
   3.7230826351638565`*^9}, 3.7230826785733395`*^9, {3.7233410532093134`*^9, 
   3.7233410621298237`*^9}, 3.7233411482837515`*^9, {3.7233412307014656`*^9, 
   3.7233412367928143`*^9}, {3.7233412976122923`*^9, 3.7233412981303225`*^9}, 
   3.7233413525034323`*^9, 3.7233414412165065`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"Erfc", "[", 
     RowBox[{"d_.", "*", 
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}]}], "]"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "*", 
     RowBox[{"Erfc", "[", 
      RowBox[{"d", "*", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], "]"}]}], " ", "+", 
    " ", 
    RowBox[{"2", "*", "b", "*", "d", "*", 
     RowBox[{"n", "/", 
      RowBox[{"(", 
       RowBox[{"Sqrt", "[", "Pi", "]"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"1", "/", 
        RowBox[{"E", "^", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"d", "*", 
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"b", "*", 
               RowBox[{"Log", "[", 
                RowBox[{"c", "*", 
                 RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], ")"}], "^", 
          "2"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", 
     "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, 3.706141678638372*^9, {3.7094287716213837`*^9, 
   3.7094287721314125`*^9}, {3.7094292930112057`*^9, 3.709429371395689*^9}, {
   3.7230820310533037`*^9, 3.7230820319793563`*^9}, {3.7230821266387706`*^9, 
   3.723082158833612*^9}, 3.7230822088254714`*^9, {3.72308260462811*^9, 
   3.7230826806164565`*^9}, {3.7233410967518044`*^9, 3.723341115618883*^9}, 
   3.7233411489277887`*^9, 3.7233412559039073`*^9, 3.723341364272105*^9, {
   3.7233414187022185`*^9, 3.7233414414025173`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"Erfi", "[", 
     RowBox[{"d_.", "*", 
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}]}], "]"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "*", 
     RowBox[{"Erfi", "[", 
      RowBox[{"d", "*", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], "]"}]}], " ", "-", 
    " ", 
    RowBox[{"2", "*", "b", "*", "d", "*", 
     RowBox[{"n", "/", 
      RowBox[{"(", 
       RowBox[{"Sqrt", "[", "Pi", "]"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"E", "^", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "*", 
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", 
              RowBox[{"Log", "[", 
               RowBox[{"c", "*", 
                RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], ")"}], "^", 
         "2"}]}], ",", "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", 
     "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, 3.706141678638372*^9, {3.7094287716213837`*^9, 
   3.7094287721314125`*^9}, {3.7094292930112057`*^9, 3.709429371395689*^9}, {
   3.7230820310533037`*^9, 3.7230820319793563`*^9}, {3.7230821266387706`*^9, 
   3.723082158833612*^9}, 3.7230822088254714`*^9, {3.72308260462811*^9, 
   3.7230826351638565`*^9}, {3.7230826785733395`*^9, 
   3.7230826975614257`*^9}, {3.723341127079539*^9, 3.7233411495348234`*^9}, 
   3.7233412565199423`*^9, 3.723341368584352*^9, 3.7233414415875273`*^9, {
   3.7233414814458075`*^9, 3.7233414841799636`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"Erf", "[", 
       RowBox[{"d", " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Log", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}], "x"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, 3.7094292446364384`*^9, 
   3.709496691964717*^9, 3.709496740529495*^9, {3.723081681033283*^9, 
   3.723081692283927*^9}, {3.723082505411435*^9, 3.7230825282757425`*^9}, 
   3.7230827268050985`*^9, {3.7230827704735956`*^9, 3.7230827718686757`*^9}, {
   3.723082930805766*^9, 3.7230829462486496`*^9}, 3.723340916982522*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.7230829601854467`*^9, 3.7230829628055964`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{"F", "[", 
     RowBox[{"Log", "[", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "n"]}], "]"}], "]"}], "x"], "\[Equal]", 
   RowBox[{
    FractionBox["1", "n"], " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"F", "[", "x", "]"}], ",", "x", ",", 
      RowBox[{"Log", "[", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "n"]}], "]"}]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Log", "[", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "n"]}], "]"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.495321989219356*^9, 3.4953835047314157`*^9, 3.4953841387223034`*^9, 
   3.495384868433325*^9, {3.4953876713659415`*^9, 3.495387673145944*^9}, {
   3.4953891516580143`*^9, 3.495389154318018*^9}, 3.4953892091980944`*^9, {
   3.4953892828081975`*^9, 3.495389298008219*^9}, {3.7151167463770504`*^9, 
   3.7151167463770504`*^9}, {3.723063218657098*^9, 3.723063218657098*^9}, {
   3.723071513604542*^9, 3.723071513604542*^9}, {3.723071765282937*^9, 
   3.723071765282937*^9}, {3.7230718882389693`*^9, 3.7230719475683627`*^9}, {
   3.723071995683115*^9, 3.723071995683115*^9}, {3.7230720643290415`*^9, 
   3.723072075416675*^9}, {3.723083069080675*^9, 3.723083069080675*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494271052164215*^9, {
   3.494271408804714*^9, 3.494271432974748*^9}, {3.574959991751074*^9, 
   3.574959994221077*^9}, {3.72308307178683*^9, 3.7230830719318385`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox[
    RowBox[{"Erf", "[", 
     RowBox[{"d", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}], "x"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", "n"]}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"Erf", "[", 
      RowBox[{"d", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], ")"}]}], "]"}], ",", "x", ",", 
     RowBox[{"Log", "[", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "n"]}], "]"}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.494271065404234*^9, 3.494271092894272*^9}, {
   3.4942713522746353`*^9, 3.494271366464655*^9}, 3.494275024729777*^9, {
   3.7094292468135633`*^9, 3.709429263753532*^9}, {3.723081710084945*^9, 
   3.72308175719864*^9}, {3.723081856148299*^9, 3.7230819091783323`*^9}, 
   3.723081945182392*^9, {3.7230820167834873`*^9, 3.7230820234358673`*^9}, {
   3.7230825485209007`*^9, 3.7230825772195425`*^9}, {3.7230830782642*^9, 
   3.723083091262944*^9}, {3.7230831267099714`*^9, 3.723083140730773*^9}, 
   3.723340917751566*^9, {3.7233415712259426`*^9, 3.723341576274231*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"F_", "[", 
      RowBox[{"d_.", "*", 
       RowBox[{"(", 
        RowBox[{"a_.", "+", 
         RowBox[{"b_.", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c_.", "*", 
            RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}]}], "]"}], "/", 
     "x_"}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", "n"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"F", "[", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], ")"}]}], "]"}], ",", "x", ",", 
      RowBox[{"Log", "[", 
       RowBox[{"c", "*", 
        RowBox[{"x", "^", "n"}]}], "]"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"MemberQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Erf", ",", "Erfc", ",", "Erfi"}], "}"}], ",", "F"}], 
     "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, 3.706141678638372*^9, {3.7094287716213837`*^9, 
   3.7094287721314125`*^9}, {3.7094292930112057`*^9, 3.709429371395689*^9}, {
   3.7230820310533037`*^9, 3.7230820319793563`*^9}, {3.7230821266387706`*^9, 
   3.723082158833612*^9}, 3.7230822088254714`*^9, {3.72308260462811*^9, 
   3.7230826351638565`*^9}, 3.7230826785733395`*^9, {3.72308316585121*^9, 
   3.72308319434584*^9}, {3.7230857267446847`*^9, 3.72308573784832*^9}, {
   3.723341129967704*^9, 3.723341150110856*^9}, {3.7233415891739693`*^9, 
   3.723341594278261*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"e", " ", "x"}], ")"}], "m"], " ", 
     RowBox[{"Erf", "[", 
      RowBox[{"d", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Log", "[", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[NotEqual]", 
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, 3.7094292446364384`*^9, 
   3.709496691964717*^9, 3.709496740529495*^9, {3.723081681033283*^9, 
   3.723081692283927*^9}, {3.723082505411435*^9, 3.7230825306638794`*^9}, {
   3.723082773250755*^9, 3.723082774206809*^9}, {3.7230829324188585`*^9, 
   3.72308293261687*^9}, 3.723340827920428*^9, 3.723340918542611*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{3.4941724567488375`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"Erf", "[", 
     RowBox[{"d", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}]}], 
   "\[Equal]", 
   FractionBox[
    RowBox[{"2", " ", "b", " ", "d", " ", "n"}], 
    RowBox[{
     SqrtBox["\[Pi]"], " ", "x", " ", 
     SuperscriptBox["\[ExponentialE]", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"d", " ", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"Log", "[", 
             RowBox[{"c", " ", 
              SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], ")"}], 
       "2"]]}]]}]],
  CellChangeTimes->{{3.723081786820334*^9, 3.723081824585494*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.7230818341590414`*^9, 3.7230818410724373`*^9}, {
   3.723081935599844*^9, 3.723081935599844*^9}, {3.723340919148646*^9, 
   3.7233409196686754`*^9}, {3.72334162677812*^9, 3.723341627163142*^9}}],

Cell[TextData[{
 "Rule: ",
 "If  ",
 Cell[BoxData[
  RowBox[{"m", "\[NotEqual]", 
   RowBox[{"-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494271052164215*^9, {
   3.494271408804714*^9, 3.494271432974748*^9}, {3.574959991751074*^9, 
   3.574959994221077*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"e", " ", "x"}], ")"}], "m"], " ", 
    RowBox[{"Erf", "[", 
     RowBox[{"d", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"e", " ", "x"}], ")"}], 
         RowBox[{"m", "+", "1"}]], " ", 
        RowBox[{"Erf", "[", 
         RowBox[{"d", " ", 
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", 
             RowBox[{"Log", "[", 
              RowBox[{"c", " ", 
               SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}]}], 
       RowBox[{"e", " ", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"2", " ", "b", " ", "d", " ", "n"}], 
    RowBox[{
     SqrtBox["\[Pi]"], " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"e", " ", "x"}], ")"}], "m"], 
      SuperscriptBox["\[ExponentialE]", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"d", " ", 
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", 
             RowBox[{"Log", "[", 
              RowBox[{"c", " ", 
               SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], ")"}], "2"]]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.494271065404234*^9, 3.494271092894272*^9}, {
   3.4942713522746353`*^9, 3.494271366464655*^9}, 3.494275024729777*^9, {
   3.7094292468135633`*^9, 3.709429263753532*^9}, {3.723081710084945*^9, 
   3.72308175719864*^9}, {3.723081856148299*^9, 3.7230819091783323`*^9}, 
   3.723081945182392*^9, {3.7230820167834873`*^9, 3.7230820234358673`*^9}, 
   3.7230825350871325`*^9, 3.7230831072968607`*^9, {3.723340828970488*^9, 
   3.7233408314636307`*^9}, {3.723340920728736*^9, 3.7233409249449773`*^9}, {
   3.723341635600624*^9, 3.7233416360436497`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_.", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{"Erf", "[", 
      RowBox[{"d_.", "*", 
       RowBox[{"(", 
        RowBox[{"a_.", "+", 
         RowBox[{"b_.", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c_.", "*", 
            RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}]}], "]"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "*", "x"}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erf", "[", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Log", "[", 
            RowBox[{"c", "*", 
             RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"2", "*", "b", "*", "d", "*", 
     RowBox[{"n", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Sqrt", "[", "Pi", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "*", "x"}], ")"}], "^", "m"}], "/", 
        RowBox[{"E", "^", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"d", "*", 
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"b", "*", 
               RowBox[{"Log", "[", 
                RowBox[{"c", "*", 
                 RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], ")"}], "^", 
          "2"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, 3.706141678638372*^9, {3.7094287716213837`*^9, 
   3.7094287721314125`*^9}, {3.7094292930112057`*^9, 3.709429371395689*^9}, {
   3.7230820310533037`*^9, 3.7230820319793563`*^9}, {3.7230821266387706`*^9, 
   3.723082158833612*^9}, 3.7230822088254714`*^9, {3.7233408373609676`*^9, 
   3.7233408405521507`*^9}, {3.723341133104883*^9, 3.7233411570402527`*^9}, 
   3.723341257159979*^9, 3.7233413743056793`*^9, 3.7233414417705383`*^9, {
   3.7233416437990932`*^9, 3.7233416657913513`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_.", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{"Erfc", "[", 
      RowBox[{"d_.", "*", 
       RowBox[{"(", 
        RowBox[{"a_.", "+", 
         RowBox[{"b_.", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c_.", "*", 
            RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}]}], "]"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "*", "x"}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erfc", "[", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Log", "[", 
            RowBox[{"c", "*", 
             RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"2", "*", "b", "*", "d", "*", 
     RowBox[{"n", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Sqrt", "[", "Pi", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "*", "x"}], ")"}], "^", "m"}], "/", 
        RowBox[{"E", "^", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"d", "*", 
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"b", "*", 
               RowBox[{"Log", "[", 
                RowBox[{"c", "*", 
                 RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], ")"}], "^", 
          "2"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, 3.706141678638372*^9, {3.7094287716213837`*^9, 
   3.7094287721314125`*^9}, {3.7094292930112057`*^9, 3.709429371395689*^9}, {
   3.7230820310533037`*^9, 3.7230820319793563`*^9}, {3.7230821266387706`*^9, 
   3.723082158833612*^9}, {3.7230822088254714`*^9, 3.7230822463436174`*^9}, {
   3.723340841400199*^9, 3.723340844431372*^9}, {3.72334113392093*^9, 
   3.723341157920303*^9}, 3.7233412576720085`*^9, 3.7233413784179144`*^9, 
   3.7233414419385476`*^9, 3.7233416744668474`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_.", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{"Erfi", "[", 
      RowBox[{"d_.", "*", 
       RowBox[{"(", 
        RowBox[{"a_.", "+", 
         RowBox[{"b_.", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c_.", "*", 
            RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}]}], "]"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "*", "x"}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Erfi", "[", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Log", "[", 
            RowBox[{"c", "*", 
             RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"2", "*", "b", "*", "d", "*", 
     RowBox[{"n", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Sqrt", "[", "Pi", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "*", "x"}], ")"}], "^", "m"}], "*", 
        RowBox[{"E", "^", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"d", "*", 
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"b", "*", 
               RowBox[{"Log", "[", 
                RowBox[{"c", "*", 
                 RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], ")"}], "^", 
          "2"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, 3.706141678638372*^9, {3.7094287716213837`*^9, 
   3.7094287721314125`*^9}, {3.7094292930112057`*^9, 3.709429371395689*^9}, {
   3.7230820310533037`*^9, 3.7230820319793563`*^9}, {3.7230821266387706`*^9, 
   3.723082158833612*^9}, 3.7230822088254714`*^9, {3.723082283748757*^9, 
   3.7230822849388247`*^9}, 3.7230823579950037`*^9, {3.7233408453114223`*^9, 
   3.7233408479515734`*^9}, {3.7233411346089697`*^9, 3.7233411603444414`*^9}, 
   3.7233412582880435`*^9, 3.72334138200912*^9, 3.723341442106557*^9, 
   3.7233416811082277`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["6:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"Sin", "[", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", 
       SuperscriptBox["x", "2"]}]}], "]"}], " ", 
    RowBox[{"Erf", "[", 
     RowBox[{"b", " ", "x"}], "]"}], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      SuperscriptBox["d", "2"], "\[Equal]", 
      RowBox[{"-", 
       SuperscriptBox["b", "4"]}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.5749616507633963`*^9, 
   3.5749616802734375`*^9}, 3.5749626407247825`*^9, 3.5749626887048492`*^9, {
   3.5749628029250097`*^9, 3.5749628467550707`*^9}, {3.5749629957552795`*^9, 
   3.574962998955284*^9}, 3.709497475156513*^9, 3.709497552043911*^9, {
   3.7095245504297237`*^9, 3.7095245507937446`*^9}, {3.7095250299641514`*^9, 
   3.709525032961323*^9}, {3.7095261915175886`*^9, 3.709526192694656*^9}, {
   3.7097652587487936`*^9, 3.709765285483323*^9}, {3.709765434108824*^9, 
   3.709765439005104*^9}, {3.7097667958653107`*^9, 3.7097668004475727`*^9}, {
   3.7097675457812033`*^9, 3.70976754711328*^9}, {3.723082789553687*^9, 
   3.7230827897666993`*^9}, {3.723084129217312*^9, 3.723084129403322*^9}, {
   3.7230893901452193`*^9, 3.7230893904272356`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Algebraic expansion\
\>", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4942714693347993`*^9, 
   3.4942715340348897`*^9}, {3.4942715837849593`*^9, 
   3.4942715950249753`*^9}, {3.4942716458250465`*^9, 3.494271658445064*^9}, {
   3.494271809215275*^9, 3.494271810105276*^9}, {3.4942730894970675`*^9, 
   3.4942731037070875`*^9}, {3.5491587383546886`*^9, 
   3.5491587383546886`*^9}, {3.5749629139251647`*^9, 
   3.5749629139251647`*^9}, {3.5749630043852916`*^9, 
   3.5749630043852916`*^9}, {3.709526450958428*^9, 3.709526450958428*^9}, {
   3.7095266191890497`*^9, 3.70952663107773*^9}, {3.7097655335655127`*^9, 
   3.7097655365346823`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"Sin", "[", 
    RowBox[{"c", "+", 
     RowBox[{"d", " ", 
      SuperscriptBox["x", "2"]}]}], "]"}], "\[Equal]", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "c"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", "d", " ", 
        SuperscriptBox["x", "2"]}]}]]}], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"\[ImaginaryI]", " ", "c"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", "d", " ", 
        SuperscriptBox["x", "2"]}]}]]}]}]}]],
  CellDingbat->None,
  CellChangeTimes->{
   3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
    3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
    3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
    3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
    3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
    3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
    3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
    3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
    3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
    3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
    3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
    3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
    3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
    3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
    3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
    3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
    3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
    3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
    3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
    3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
    3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9},
     3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
    3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
    3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
    3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
    3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
    3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
    3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
    3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
    3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
    3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
    3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
    3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
    3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
    3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
    3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
    3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
    3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
    3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
    3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9},
     3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
    3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
    3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
    3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
    3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
    3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
    3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
    3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
    3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
    3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
    3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
    3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
    3.574959999411084*^9}, 3.574961543243246*^9, {3.5749616507633963`*^9, 
    3.5749616802734375`*^9}},
  FontSize->12,
  FontWeight->"Bold"]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494271052164215*^9, {
   3.494271408804714*^9, 3.494271432974748*^9}, {3.574959991751074*^9, 
   3.574959994221077*^9}, 3.574961755703543*^9, {3.5749640466067505`*^9, 
   3.5749640855468054`*^9}, {3.7097655149234457`*^9, 
   3.7097655149234457`*^9}, {3.7097668087730494`*^9, 3.709766830254278*^9}, {
   3.7097676002573195`*^9, 3.70976760025832*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox["d", "2"], "\[Equal]", 
   RowBox[{"-", 
    SuperscriptBox["b", "4"]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4942714693347993`*^9, 
   3.4942715340348897`*^9}, {3.4942715837849593`*^9, 
   3.4942715950249753`*^9}, {3.4942716458250465`*^9, 3.494271658445064*^9}, {
   3.494271809215275*^9, 3.494271810105276*^9}, {3.4942730894970675`*^9, 
   3.4942731037070875`*^9}, {3.5491587383546886`*^9, 
   3.5491587383546886`*^9}, {3.5749629139251647`*^9, 
   3.5749629139251647`*^9}, {3.5749630043852916`*^9, 
   3.5749630043852916`*^9}, {3.7097656066546926`*^9, 
   3.7097656066546926`*^9}, {3.709767651507251*^9, 3.709767651507251*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"Sin", "[", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", 
       SuperscriptBox["x", "2"]}]}], "]"}], " ", 
    RowBox[{"Erf", "[", 
     RowBox[{"b", " ", "x"}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox["\[ImaginaryI]", "2"]}]}], " ", 
    RowBox[{"\[Integral]", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "c"}], "-", 
        RowBox[{"\[ImaginaryI]", " ", "d", " ", 
         SuperscriptBox["x", "2"]}]}]], " ", 
      RowBox[{"Erf", "[", 
       RowBox[{"b", " ", "x"}], "]"}], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-", 
  RowBox[{
   FractionBox["\[ImaginaryI]", "2"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"\[ImaginaryI]", " ", "c"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", "d", " ", 
        SuperscriptBox["x", "2"]}]}]], " ", 
     RowBox[{"Erf", "[", 
      RowBox[{"b", " ", "x"}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.494271065404234*^9, 3.494271092894272*^9}, {
   3.4942713522746353`*^9, 3.494271366464655*^9}, 3.494275024729777*^9, {
   3.574961703833471*^9, 3.5749617330935116`*^9}, 3.5749628921251345`*^9, 
   3.574962955625223*^9, 3.5749638049564123`*^9, {3.7095245711059065`*^9, 
   3.709524571410924*^9}, {3.709524606000902*^9, 3.709524627966159*^9}, {
   3.7097655507114935`*^9, 3.7097655961110897`*^9}, {3.7097668405068645`*^9, 
   3.7097668760348964`*^9}, 3.709767556062792*^9, {3.7097676092158318`*^9, 
   3.7097676121800013`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Sin", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}], "*", 
     RowBox[{"Erf", "[", 
      RowBox[{"b_.", "*", "x_"}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"I", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "I"}], "*", "c"}], "-", 
           RowBox[{"I", "*", "d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erf", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}], " ", "-", " ", 
    RowBox[{
     RowBox[{"I", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"I", "*", "c"}], "+", 
           RowBox[{"I", "*", "d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erf", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"d", "^", "2"}], ",", 
      RowBox[{"-", 
       RowBox[{"b", "^", "4"}]}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, 3.5749630438453465`*^9, {
   3.574963184685544*^9, 3.5749632221155963`*^9}, 3.5749637688063617`*^9, 
   3.7061415974082584`*^9, 3.7094288405373254`*^9, {3.709524663411186*^9, 
   3.709524717100257*^9}, {3.7095739916023884`*^9, 3.709573994242392*^9}, {
   3.7097656494841423`*^9, 3.709765660489772*^9}, {3.7097657023351655`*^9, 
   3.709765720407199*^9}, {3.7097669011383324`*^9, 3.7097669134470363`*^9}, 
   3.709766978341748*^9, {3.709767675660632*^9, 3.7097676764856796`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Sin", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}], "*", 
     RowBox[{"Erfc", "[", 
      RowBox[{"b_.", "*", "x_"}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"I", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "I"}], "*", "c"}], "-", 
           RowBox[{"I", "*", "d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erfc", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}], " ", "-", " ", 
    RowBox[{
     RowBox[{"I", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"I", "*", "c"}], "+", 
           RowBox[{"I", "*", "d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erfc", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"d", "^", "2"}], ",", 
      RowBox[{"-", 
       RowBox[{"b", "^", "4"}]}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, 3.5749630438453465`*^9, {
   3.574963184685544*^9, 3.5749632221155963`*^9}, 3.5749637688063617`*^9, 
   3.7061415974082584`*^9, 3.7094288405373254`*^9, {3.709524663411186*^9, 
   3.709524717100257*^9}, {3.7095739916023884`*^9, 3.709573994242392*^9}, {
   3.7097656494841423`*^9, 3.709765660489772*^9}, {3.7097657023351655`*^9, 
   3.709765720407199*^9}, {3.709765899711455*^9, 3.7097659135392456`*^9}, {
   3.7097669024394064`*^9, 3.709766914817115*^9}, {3.7097669984278965`*^9, 
   3.709767007600422*^9}, {3.7097676770127096`*^9, 3.709767677412732*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Sin", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}], "*", 
     RowBox[{"Erfi", "[", 
      RowBox[{"b_.", "*", "x_"}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"I", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "I"}], "*", "c"}], "-", 
           RowBox[{"I", "*", "d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erfi", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}], " ", "-", " ", 
    RowBox[{
     RowBox[{"I", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"I", "*", "c"}], "+", 
           RowBox[{"I", "*", "d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erfi", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"d", "^", "2"}], ",", 
      RowBox[{"-", 
       RowBox[{"b", "^", "4"}]}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, 3.5749630438453465`*^9, {
   3.574963184685544*^9, 3.5749632221155963`*^9}, 3.5749637688063617`*^9, 
   3.7061415974082584`*^9, 3.7094288405373254`*^9, {3.709524663411186*^9, 
   3.709524717100257*^9}, {3.7095739916023884`*^9, 3.709573994242392*^9}, {
   3.7097656494841423`*^9, 3.709765660489772*^9}, {3.7097657023351655`*^9, 
   3.709765720407199*^9}, {3.709765899711455*^9, 3.70976593284735*^9}, {
   3.7097669040684996`*^9, 3.709766915895176*^9}, {3.709767000683026*^9, 
   3.709767013087735*^9}, {3.7097676778287563`*^9, 3.7097676782367797`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}], "*", 
     RowBox[{"Erf", "[", 
      RowBox[{"b_.", "*", "x_"}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "I"}], "*", "c"}], "-", 
           RowBox[{"I", "*", "d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erf", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}], " ", "+", " ", 
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"I", "*", "c"}], "+", 
           RowBox[{"I", "*", "d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erf", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"d", "^", "2"}], ",", 
      RowBox[{"-", 
       RowBox[{"b", "^", "4"}]}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, 3.5749630438453465`*^9, {
   3.574963184685544*^9, 3.5749632221155963`*^9}, 3.5749637688063617`*^9, 
   3.7061415974082584`*^9, 3.7094288405373254`*^9, {3.709524663411186*^9, 
   3.709524717100257*^9}, {3.7095739916023884`*^9, 3.709573994242392*^9}, {
   3.7097656494841423`*^9, 3.709765660489772*^9}, {3.7097657023351655`*^9, 
   3.709765720407199*^9}, {3.7097669011383324`*^9, 3.7097669134470363`*^9}, 
   3.709766978341748*^9, {3.7097670372411165`*^9, 3.7097670377011433`*^9}, 
   3.709767072072109*^9, {3.709767678580799*^9, 3.7097676789728217`*^9}, {
   3.7097685023639174`*^9, 3.7097685028909473`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}], "*", 
     RowBox[{"Erfc", "[", 
      RowBox[{"b_.", "*", "x_"}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "I"}], "*", "c"}], "-", 
           RowBox[{"I", "*", "d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erfc", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}], " ", "+", " ", 
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"I", "*", "c"}], "+", 
           RowBox[{"I", "*", "d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erfc", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"d", "^", "2"}], ",", 
      RowBox[{"-", 
       RowBox[{"b", "^", "4"}]}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, 3.5749630438453465`*^9, {
   3.574963184685544*^9, 3.5749632221155963`*^9}, 3.5749637688063617`*^9, 
   3.7061415974082584`*^9, 3.7094288405373254`*^9, {3.709524663411186*^9, 
   3.709524717100257*^9}, {3.7095739916023884`*^9, 3.709573994242392*^9}, {
   3.7097656494841423`*^9, 3.709765660489772*^9}, {3.7097657023351655`*^9, 
   3.709765720407199*^9}, {3.709765899711455*^9, 3.7097659135392456`*^9}, {
   3.7097669024394064`*^9, 3.709766914817115*^9}, {3.7097669984278965`*^9, 
   3.709767007600422*^9}, 3.709767041886382*^9, 3.7097670740372214`*^9, {
   3.7097676793408427`*^9, 3.709767679724865*^9}, {3.709768503338973*^9, 
   3.7097685037869987`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}], "*", 
     RowBox[{"Erfi", "[", 
      RowBox[{"b_.", "*", "x_"}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "I"}], "*", "c"}], "-", 
           RowBox[{"I", "*", "d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erfi", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}], " ", "+", " ", 
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"I", "*", "c"}], "+", 
           RowBox[{"I", "*", "d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erfi", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"d", "^", "2"}], ",", 
      RowBox[{"-", 
       RowBox[{"b", "^", "4"}]}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, 3.5749630438453465`*^9, {
   3.574963184685544*^9, 3.5749632221155963`*^9}, 3.5749637688063617`*^9, 
   3.7061415974082584`*^9, 3.7094288405373254`*^9, {3.709524663411186*^9, 
   3.709524717100257*^9}, {3.7095739916023884`*^9, 3.709573994242392*^9}, {
   3.7097656494841423`*^9, 3.709765660489772*^9}, {3.7097657023351655`*^9, 
   3.709765720407199*^9}, {3.709765899711455*^9, 3.70976593284735*^9}, {
   3.7097669040684996`*^9, 3.709766915895176*^9}, {3.709767000683026*^9, 
   3.709767013087735*^9}, 3.7097670434594727`*^9, 3.7097670754893045`*^9, {
   3.709767680268896*^9, 3.709767680636917*^9}, {3.709768504250025*^9, 
   3.7097685053870897`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["7:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"Sinh", "[", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], "]"}], " ", 
    RowBox[{"Erf", "[", 
     RowBox[{"b", " ", "x"}], "]"}], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      SuperscriptBox["d", "2"], "\[Equal]", 
      SuperscriptBox["b", "4"]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.5749616507633963`*^9, 
   3.5749616802734375`*^9}, 3.5749626407247825`*^9, 3.5749626887048492`*^9, {
   3.5749628029250097`*^9, 3.5749628467550707`*^9}, {3.5749629957552795`*^9, 
   3.574962998955284*^9}, 3.709497475156513*^9, 3.709497552043911*^9, {
   3.7095245504297237`*^9, 3.7095245507937446`*^9}, {3.7095250299641514`*^9, 
   3.709525032961323*^9}, {3.7095261915175886`*^9, 3.709526192694656*^9}, {
   3.7097652587487936`*^9, 3.709765285483323*^9}, {3.709765434108824*^9, 
   3.709765439005104*^9}, {3.709767083994791*^9, 3.709767084265806*^9}, {
   3.7230827915248003`*^9, 3.7230827917128105`*^9}, {3.7230841313534336`*^9, 
   3.7230841315974474`*^9}, {3.7230893923453455`*^9, 3.7230893925183554`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Algebraic expansion\
\>", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4942714693347993`*^9, 
   3.4942715340348897`*^9}, {3.4942715837849593`*^9, 
   3.4942715950249753`*^9}, {3.4942716458250465`*^9, 3.494271658445064*^9}, {
   3.494271809215275*^9, 3.494271810105276*^9}, {3.4942730894970675`*^9, 
   3.4942731037070875`*^9}, {3.5491587383546886`*^9, 
   3.5491587383546886`*^9}, {3.5749629139251647`*^9, 
   3.5749629139251647`*^9}, {3.5749630043852916`*^9, 
   3.5749630043852916`*^9}, {3.709526450958428*^9, 3.709526450958428*^9}, {
   3.7095266191890497`*^9, 3.70952663107773*^9}, {3.7097655335655127`*^9, 
   3.7097655365346823`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"Sinh", "[", 
    RowBox[{"c", "+", 
     RowBox[{"d", " ", 
      SuperscriptBox["x", "2"]}]}], "]"}], "\[Equal]", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "2"]}]}]]}], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "c"}], "-", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "2"]}]}]]}]}]}]],
  CellDingbat->None,
  CellChangeTimes->{
   3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
    3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
    3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
    3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
    3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
    3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
    3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
    3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
    3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
    3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
    3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
    3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
    3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
    3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
    3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
    3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
    3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
    3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
    3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
    3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
    3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9},
     3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
    3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
    3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
    3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
    3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
    3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
    3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
    3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
    3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
    3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
    3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
    3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
    3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
    3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
    3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
    3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
    3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
    3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
    3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9},
     3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
    3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
    3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
    3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
    3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
    3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
    3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
    3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
    3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
    3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
    3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
    3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
    3.574959999411084*^9}, 3.574961543243246*^9, {3.5749616507633963`*^9, 
    3.5749616802734375`*^9}},
  FontSize->12,
  FontWeight->"Bold"]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494271052164215*^9, {
   3.494271408804714*^9, 3.494271432974748*^9}, {3.574959991751074*^9, 
   3.574959994221077*^9}, 3.574961755703543*^9, {3.5749640466067505`*^9, 
   3.5749640855468054`*^9}, {3.7097655149234457`*^9, 
   3.7097655149234457`*^9}, {3.7097677247954426`*^9, 3.7097677300687447`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox["d", "2"], "\[Equal]", 
   SuperscriptBox["b", "4"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4942714693347993`*^9, 
   3.4942715340348897`*^9}, {3.4942715837849593`*^9, 
   3.4942715950249753`*^9}, {3.4942716458250465`*^9, 3.494271658445064*^9}, {
   3.494271809215275*^9, 3.494271810105276*^9}, {3.4942730894970675`*^9, 
   3.4942731037070875`*^9}, {3.5491587383546886`*^9, 
   3.5491587383546886`*^9}, {3.5749629139251647`*^9, 
   3.5749629139251647`*^9}, {3.5749630043852916`*^9, 
   3.5749630043852916`*^9}, {3.7097656066546926`*^9, 3.7097656066546926`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"Sinh", "[", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", 
       SuperscriptBox["x", "2"]}]}], "]"}], " ", 
    RowBox[{"Erf", "[", 
     RowBox[{"b", " ", "x"}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox["1", "2"]}]}], " ", 
    RowBox[{"\[Integral]", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", 
         SuperscriptBox["x", "2"]}]}]], " ", 
      RowBox[{"Erf", "[", 
       RowBox[{"b", " ", "x"}], "]"}], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "c"}], "-", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "2"]}]}]], " ", 
     RowBox[{"Erf", "[", 
      RowBox[{"b", " ", "x"}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.494271065404234*^9, 3.494271092894272*^9}, {
   3.4942713522746353`*^9, 3.494271366464655*^9}, 3.494275024729777*^9, {
   3.574961703833471*^9, 3.5749617330935116`*^9}, 3.5749628921251345`*^9, 
   3.574962955625223*^9, 3.5749638049564123`*^9, {3.7095245711059065`*^9, 
   3.709524571410924*^9}, {3.709524606000902*^9, 3.709524627966159*^9}, {
   3.7097655507114935`*^9, 3.7097655961110897`*^9}, {3.7097677358780766`*^9, 
   3.7097677409963694`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Sinh", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}], "*", 
     RowBox[{"Erf", "[", 
      RowBox[{"b_.", "*", "x_"}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erf", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}], " ", "-", " ", 
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "c"}], "-", 
           RowBox[{"d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erf", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"d", "^", "2"}], ",", 
      RowBox[{"b", "^", "4"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, 3.5749630438453465`*^9, {
   3.574963184685544*^9, 3.5749632221155963`*^9}, 3.5749637688063617`*^9, 
   3.7061415974082584`*^9, 3.7094288405373254`*^9, {3.709524663411186*^9, 
   3.709524717100257*^9}, {3.7095739916023884`*^9, 3.709573994242392*^9}, {
   3.7097656494841423`*^9, 3.709765660489772*^9}, {3.7097657023351655`*^9, 
   3.709765720407199*^9}, {3.709767683524082*^9, 3.7097676840041094`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Sinh", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}], "*", 
     RowBox[{"Erfc", "[", 
      RowBox[{"b_.", "*", "x_"}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erfc", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}], " ", "-", " ", 
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "c"}], "-", 
           RowBox[{"d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erfc", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"d", "^", "2"}], ",", 
      RowBox[{"b", "^", "4"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, 3.5749630438453465`*^9, {
   3.574963184685544*^9, 3.5749632221155963`*^9}, 3.5749637688063617`*^9, 
   3.7061415974082584`*^9, 3.7094288405373254`*^9, {3.709524663411186*^9, 
   3.709524717100257*^9}, {3.7095739916023884`*^9, 3.709573994242392*^9}, {
   3.7097656494841423`*^9, 3.709765660489772*^9}, {3.7097657023351655`*^9, 
   3.709765720407199*^9}, {3.709765899711455*^9, 3.7097659135392456`*^9}, {
   3.7097676845001383`*^9, 3.7097676848761597`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Sinh", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}], "*", 
     RowBox[{"Erfi", "[", 
      RowBox[{"b_.", "*", "x_"}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erfi", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}], " ", "-", " ", 
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "c"}], "-", 
           RowBox[{"d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erfi", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"d", "^", "2"}], ",", 
      RowBox[{"b", "^", "4"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, 3.5749630438453465`*^9, {
   3.574963184685544*^9, 3.5749632221155963`*^9}, 3.5749637688063617`*^9, 
   3.7061415974082584`*^9, 3.7094288405373254`*^9, {3.709524663411186*^9, 
   3.709524717100257*^9}, {3.7095739916023884`*^9, 3.709573994242392*^9}, {
   3.7097656494841423`*^9, 3.709765660489772*^9}, {3.7097657023351655`*^9, 
   3.709765720407199*^9}, {3.709765899711455*^9, 3.70976593284735*^9}, {
   3.709767685252181*^9, 3.7097676856122017`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Cosh", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}], "*", 
     RowBox[{"Erf", "[", 
      RowBox[{"b_.", "*", "x_"}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erf", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}], " ", "+", " ", 
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "c"}], "-", 
           RowBox[{"d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erf", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"d", "^", "2"}], ",", 
      RowBox[{"b", "^", "4"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, 3.5749630438453465`*^9, {
   3.574963184685544*^9, 3.5749632221155963`*^9}, 3.5749637688063617`*^9, 
   3.7061415974082584`*^9, 3.7094288405373254`*^9, {3.709524663411186*^9, 
   3.709524717100257*^9}, {3.7095739916023884`*^9, 3.709573994242392*^9}, {
   3.7097656494841423`*^9, 3.709765660489772*^9}, {3.7097657023351655`*^9, 
   3.709765720407199*^9}, {3.709766031308982*^9, 3.7097660415355663`*^9}, {
   3.709767685988223*^9, 3.7097676863482437`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Cosh", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}], "*", 
     RowBox[{"Erfc", "[", 
      RowBox[{"b_.", "*", "x_"}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erfc", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}], " ", "+", " ", 
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "c"}], "-", 
           RowBox[{"d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erfc", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"d", "^", "2"}], ",", 
      RowBox[{"b", "^", "4"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, 3.5749630438453465`*^9, {
   3.574963184685544*^9, 3.5749632221155963`*^9}, 3.5749637688063617`*^9, 
   3.7061415974082584`*^9, 3.7094288405373254`*^9, {3.709524663411186*^9, 
   3.709524717100257*^9}, {3.7095739916023884`*^9, 3.709573994242392*^9}, {
   3.7097656494841423`*^9, 3.709765660489772*^9}, {3.7097657023351655`*^9, 
   3.709765720407199*^9}, {3.709765899711455*^9, 3.7097659135392456`*^9}, {
   3.7097660363462696`*^9, 3.7097660437796946`*^9}, {3.709767686740266*^9, 
   3.7097676871482897`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Cosh", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}], "*", 
     RowBox[{"Erfi", "[", 
      RowBox[{"b_.", "*", "x_"}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erfi", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}], " ", "+", " ", 
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "c"}], "-", 
           RowBox[{"d", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}], "*", 
        RowBox[{"Erfi", "[", 
         RowBox[{"b", "*", "x"}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"d", "^", "2"}], ",", 
      RowBox[{"b", "^", "4"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.4942710790942526`*^9, 
   3.4942713187345886`*^9, 3.4942750371797943`*^9, 3.5488204945868177`*^9, 
   3.548820596626961*^9, {3.5749617656735573`*^9, 3.574961777713574*^9}, {
   3.5749618114736214`*^9, 3.574961821343635*^9}, 3.5749630438453465`*^9, {
   3.574963184685544*^9, 3.5749632221155963`*^9}, 3.5749637688063617`*^9, 
   3.7061415974082584`*^9, 3.7094288405373254`*^9, {3.709524663411186*^9, 
   3.709524717100257*^9}, {3.7095739916023884`*^9, 3.709573994242392*^9}, {
   3.7097656494841423`*^9, 3.709765660489772*^9}, {3.7097657023351655`*^9, 
   3.709765720407199*^9}, {3.709765899711455*^9, 3.70976593284735*^9}, {
   3.7097660381933756`*^9, 3.7097660454457903`*^9}, {3.70976768750031*^9, 
   3.7097676882203507`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}],

Cell[BoxData[Cell[TextData[StyleBox["Rules for integrands involving special \
functions",
  FontFamily->"Arial"]], "None"]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9, 
   3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
   3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9, 
   3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
   3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9, 
   3.5450834895895033`*^9}, {3.5454961263762493`*^9, 
   3.5454961321462574`*^9}, {3.5454963863166127`*^9, 
   3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
   3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
   3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9, 
   3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
   3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9, 
   3.5462145601073203`*^9}, {3.5463149785974817`*^9, 
   3.5463149794195285`*^9}, {3.5488738437683954`*^9, 
   3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
   3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5758457803910656`*^9, 
   3.5758457938510847`*^9}, {3.5758458780912023`*^9, 
   3.5758458797312045`*^9}, {3.5758460250714083`*^9, 3.575846028691413*^9}, {
   3.5758461031815176`*^9, 3.575846103681518*^9}, {3.5758463018517957`*^9, 
   3.5758463042917986`*^9}, {3.5758464155019546`*^9, 3.575846417191957*^9}, {
   3.5758468610025787`*^9, 3.5758468696025906`*^9}, {3.7230855530597506`*^9, 
   3.7230855552278748`*^9}},
 TextAlignment->Center,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"F", "[", 
     RowBox[{"f", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"d", "+", 
              RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}]}], 
     "]"}], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{"F", "\[Element]", 
      RowBox[{"{", 
       RowBox[{
       "Erf", ",", "Erfc", ",", "Erfi", ",", "FresnelS", ",", "FresnelC", ",",
         "ExpIntegralEi", ",", "SinIntegral", ",", "CosIntegral", ",", 
        "SinhIntegral", ",", "CoshIntegral"}], "}"}]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5506192681491685`*^9, 3.550619293563622*^9}, {3.5506195305301757`*^9, 
   3.550619538392626*^9}, 3.5508113633281665`*^9, 3.550850564117722*^9, 
   3.55085086060068*^9, {3.5511408787654934`*^9, 3.5511409652134385`*^9}, {
   3.5511410229287395`*^9, 3.5511410229287395`*^9}, {3.551141425269752*^9, 
   3.5511414262078056`*^9}, 3.5705813877894106`*^9, {3.6218999397769117`*^9, 
   3.6218999422930555`*^9}, 3.6219787890043974`*^9, 3.7164165990485487`*^9, 
   3.716421987700762*^9, 3.716422185800092*^9, 3.7164222994325914`*^9, {
   3.7164227223747826`*^9, 3.716422724410899*^9}, {3.7164229455835495`*^9, 
   3.71642294577756*^9}, {3.7164432255844016`*^9, 3.716443227234496*^9}, {
   3.716514365051463*^9, 3.7165143652584753`*^9}, {3.717464935281926*^9, 
   3.71746493551694*^9}, {3.717465180474951*^9, 3.7174651904435205`*^9}, {
   3.7174652766104493`*^9, 3.7174652766104493`*^9}, {3.717465399277466*^9, 
   3.717465399277466*^9}, {3.7175157430038195`*^9, 3.717515743690221*^9}, 
   3.717516574157679*^9, {3.7175187680311327`*^9, 3.7175187682339334`*^9}, {
   3.717521523034529*^9, 3.717521540822547*^9}, {3.717526275752369*^9, 
   3.717526287229026*^9}, {3.717529985037528*^9, 3.717529986549615*^9}, 
   3.71753223013194*^9, {3.717532321253152*^9, 3.717532321253152*^9}, 
   3.7176042700099173`*^9, 3.717628070752305*^9, {3.7176281976295624`*^9, 
   3.7176282399589834`*^9}, {3.717628365227148*^9, 3.717628367097255*^9}, {
   3.7230835037565374`*^9, 3.7230835103659153`*^9}, {3.7230835438968334`*^9, 
   3.7230835509012337`*^9}, 3.723083676691428*^9, {3.723088819541583*^9, 
   3.7230888716605635`*^9}, {3.7230890116575713`*^9, 
   3.7230890118905845`*^9}, {3.7230909566188164`*^9, 3.723090957491866*^9}, {
   3.723092430167099*^9, 3.7230924482221317`*^9}, {3.7233419351757593`*^9, 
   3.7233419409690905`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4940010628073196`*^9, 3.4941723607787027`*^9, 3.4941724567488375`*^9, 
   3.494172696119172*^9, 3.4951614417343683`*^9, 3.495161553867365*^9, 
   3.49516358311173*^9, 3.4951639989000616`*^9, 3.4951647977306643`*^9, {
   3.7164202433349895`*^9, 3.71642025627973*^9}, {3.717465285489957*^9, 
   3.7174652861599956`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"F", "\[Element]", 
   RowBox[{"{", 
    RowBox[{
    "Erf", ",", "Erfc", ",", "Erfi", ",", "FresnelS", ",", "FresnelC", ",", 
     "ExpIntegralEi", ",", "SinIntegral", ",", "CosIntegral", ",", 
     "SinhIntegral", ",", "CoshIntegral"}], "}"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.495200116396866*^9, 
   3.4952001199668703`*^9}, {3.495201853289297*^9, 3.4952018648993134`*^9}, {
   3.495202034479551*^9, 3.495202075309608*^9}, {3.4952022052197895`*^9, 
   3.495202209799796*^9}, {3.49520236235001*^9, 3.495202364530013*^9}, {
   3.4952024627101507`*^9, 3.495202466110155*^9}, {3.570583225241983*^9, 
   3.570583225241983*^9}, {3.570628124196412*^9, 3.570628124196412*^9}, {
   3.6219006048689528`*^9, 3.6219006048689528`*^9}, {3.621906584467966*^9, 
   3.6219065844689665`*^9}, {3.716440871523757*^9, 3.716440871523757*^9}, {
   3.716515300587973*^9, 3.716515300587973*^9}, {3.7171098732254496`*^9, 
   3.7171098732254496`*^9}, {3.7176049808155727`*^9, 
   3.7176049808155727`*^9}, {3.7176285219861145`*^9, 
   3.7176285219861145`*^9}, {3.7176286914568076`*^9, 
   3.7176286914568076`*^9}, {3.7230889784136696`*^9, 
   3.7230889904933605`*^9}, {3.723090971349659*^9, 3.723090971349659*^9}, {
   3.7230924761647296`*^9, 3.7230924761647296`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{"F", "[", 
    RowBox[{"f", " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}]}], 
    "]"}], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", "e"]}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       RowBox[{"F", "[", 
        RowBox[{"f", " ", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"Log", "[", 
             RowBox[{"c", " ", 
              SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, {3.495161845931078*^9, 
   3.4951618787379355`*^9}, {3.495163638398227*^9, 3.495163646853442*^9}, 
   3.49516370254554*^9, {3.495164038477331*^9, 3.4951640737177925`*^9}, 
   3.495199899876562*^9, 3.49519994111662*^9, {3.4952000649467936`*^9, 
   3.495200075966809*^9}, {3.5705598844879603`*^9, 3.5705598906079693`*^9}, {
   3.6218987652867346`*^9, 3.6218988171897035`*^9}, {3.621898877151133*^9, 
   3.6218989022125664`*^9}, {3.71641658841094*^9, 3.71641658893897*^9}, 
   3.716417539660348*^9, {3.7164175776505213`*^9, 3.7164176175118012`*^9}, {
   3.716417719489634*^9, 3.716417726642043*^9}, {3.716420061775605*^9, 
   3.716420134034738*^9}, {3.716420189208894*^9, 3.7164201896279173`*^9}, {
   3.716420227586089*^9, 3.7164202282441263`*^9}, {3.7164216796781435`*^9, 
   3.716421698824239*^9}, {3.7164219936731033`*^9, 3.7164220172984543`*^9}, {
   3.7164417918133945`*^9, 3.7164417936525*^9}, {3.716442737914509*^9, 
   3.7164427536484084`*^9}, {3.716442789584464*^9, 3.7164427900774918`*^9}, {
   3.7164429999524965`*^9, 3.716443000696539*^9}, {3.717465198046956*^9, 
   3.7174651995320406`*^9}, {3.7174655904954023`*^9, 
   3.7174656051562414`*^9}, {3.717465668689875*^9, 3.717465671856056*^9}, {
   3.717521550127079*^9, 3.717521574749487*^9}, {3.7175263483225203`*^9, 
   3.71752638154642*^9}, 3.7176280709353156`*^9, {3.717628161003467*^9, 
   3.717628186363918*^9}, 3.717628249115507*^9, 3.7230835651880507`*^9, {
   3.7230836044012938`*^9, 3.723083608193511*^9}, {3.723088881682137*^9, 
   3.7230888836072474`*^9}, {3.723341950633643*^9, 3.723341977203163*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"F_", "[", 
     RowBox[{"f_.", "*", 
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"d_", "+", 
              RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "n_."}]}], "]"}]}]}], 
       ")"}]}], "]"}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", "e"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{"F", "[", 
         RowBox[{"f", "*", 
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"Log", "[", 
              RowBox[{"c", "*", 
               RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], "]"}], ",", 
        "x"}], "]"}], ",", "x", ",", 
      RowBox[{"d", "+", 
       RowBox[{"e", "*", "x"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "n"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"MemberQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "Erf", ",", "Erfc", ",", "Erfi", ",", "FresnelS", ",", "FresnelC", ",",
         "ExpIntegralEi", ",", "SinIntegral", ",", "CosIntegral", ",", 
        "SinhIntegral", ",", "CoshIntegral"}], "}"}], ",", "F"}], 
     "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616675135646`*^9, 3.495163619631394*^9, 
   3.495164018025695*^9, 3.495199875426528*^9, 3.495200523437435*^9, 
   3.495200639177597*^9, 3.495200753047757*^9, 3.4952010407881594`*^9, 
   3.4952013363585734`*^9, {3.4952570835699644`*^9, 3.495257087673199*^9}, {
   3.4952590667663965`*^9, 3.495259071698679*^9}, {3.495259155129451*^9, 
   3.4952591595397034`*^9}, {3.4952592284316435`*^9, 3.495259233363926*^9}, {
   3.5705608083492537`*^9, 3.570560819349269*^9}, {3.570560875679348*^9, 
   3.5705608813493557`*^9}, {3.6219001333179817`*^9, 3.62190014570369*^9}, {
   3.621900249252613*^9, 3.621900251408736*^9}, {3.6219002913290195`*^9, 
   3.6219002928911085`*^9}, {3.7164228363883038`*^9, 3.716422849596059*^9}, {
   3.7164229128336763`*^9, 3.7164229352129564`*^9}, 3.7164392531651926`*^9, 
   3.7164392890572453`*^9, 3.716503389679708*^9, 3.7165045499320707`*^9, 
   3.7174656625935264`*^9, {3.717465704865944*^9, 3.717465746281313*^9}, {
   3.7175151029350953`*^9, 3.717515109081506*^9}, {3.717518774473944*^9, 
   3.717518776689148*^9}, {3.7175216087704334`*^9, 3.717521685960848*^9}, {
   3.717521720553827*^9, 3.7175217400349407`*^9}, {3.717521794665066*^9, 
   3.7175218210705757`*^9}, 3.7175222782607255`*^9, {3.7175253204747305`*^9, 
   3.7175253245319624`*^9}, {3.7175260629631987`*^9, 
   3.7175260662003837`*^9}, {3.717526314639593*^9, 3.717526341518131*^9}, {
   3.717526392845066*^9, 3.717526436988591*^9}, {3.717526739113872*^9, 
   3.7175267421670465`*^9}, {3.7176282790592194`*^9, 3.717628331446216*^9}, {
   3.7230837061881156`*^9, 3.723083720287922*^9}, {3.723083756111971*^9, 
   3.723083762583341*^9}, {3.7230839975807824`*^9, 3.723084046227565*^9}, {
   3.72308524831032*^9, 3.723085280867182*^9}, {3.72308560357164*^9, 
   3.723085631512238*^9}, 3.7230888941038475`*^9, {3.7230892623589106`*^9, 
   3.723089270199359*^9}, 3.723089339570327*^9, 3.723090974041813*^9, 
   3.723092476818767*^9, {3.7233420060238113`*^9, 3.723342030900234*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"g", "+", 
       RowBox[{"h", " ", "x"}]}], ")"}], "m"], " ", 
    RowBox[{"F", "[", 
     RowBox[{"f", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"d", "+", 
              RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}]}], 
     "]"}], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"e", " ", "g"}], "-", 
        RowBox[{"d", " ", "h"}]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
      RowBox[{"F", "\[Element]", 
       RowBox[{"{", 
        RowBox[{
        "Erf", ",", "Erfc", ",", "Erfi", ",", "FresnelS", ",", "FresnelC", 
         ",", "ExpIntegralEi", ",", "SinIntegral", ",", "CosIntegral", ",", 
         "SinhIntegral", ",", "CoshIntegral"}], "}"}]}]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5506192681491685`*^9, 3.550619293563622*^9}, {3.5506195305301757`*^9, 
   3.550619538392626*^9}, 3.5508113633281665`*^9, 3.550850564117722*^9, 
   3.55085086060068*^9, {3.5511408787654934`*^9, 3.5511409652134385`*^9}, {
   3.5511410229287395`*^9, 3.5511410229287395`*^9}, {3.551141425269752*^9, 
   3.5511414262078056`*^9}, 3.5705813877894106`*^9, {3.6218999397769117`*^9, 
   3.6218999422930555`*^9}, 3.6219787890043974`*^9, 3.7164165990485487`*^9, 
   3.716421987700762*^9, 3.716422185800092*^9, 3.7164222994325914`*^9, {
   3.7164227223747826`*^9, 3.716422724410899*^9}, {3.7164229455835495`*^9, 
   3.71642294577756*^9}, {3.7164432255844016`*^9, 3.716443227234496*^9}, {
   3.716514365051463*^9, 3.7165143652584753`*^9}, {3.717464935281926*^9, 
   3.71746493551694*^9}, {3.717465180474951*^9, 3.7174651904435205`*^9}, {
   3.7174652766104493`*^9, 3.7174652766104493`*^9}, {3.717465399277466*^9, 
   3.717465399277466*^9}, {3.7175157430038195`*^9, 3.717515743690221*^9}, 
   3.717516574157679*^9, {3.7175187680311327`*^9, 3.7175187682339334`*^9}, {
   3.717521523034529*^9, 3.717521540822547*^9}, {3.717526275752369*^9, 
   3.717526287229026*^9}, {3.717529985037528*^9, 3.717529986549615*^9}, 
   3.71753223013194*^9, {3.717532321253152*^9, 3.717532321253152*^9}, 
   3.7176042700099173`*^9, 3.717628070752305*^9, {3.7176281976295624`*^9, 
   3.7176282399589834`*^9}, {3.717628365227148*^9, 3.717628367097255*^9}, {
   3.7230835037565374`*^9, 3.7230835103659153`*^9}, {3.7230835438968334`*^9, 
   3.7230835509012337`*^9}, 3.723083676691428*^9, {3.723083857947796*^9, 
   3.723083890977685*^9}, {3.723088938340378*^9, 3.7230889598106055`*^9}, {
   3.723089013167658*^9, 3.723089013351668*^9}, {3.723090983134333*^9, 
   3.723090983134333*^9}, {3.7230924774768047`*^9, 3.7230924774768047`*^9}, 
   3.72334206055093*^9, {3.72334215390627*^9, 3.723342156231403*^9}, {
   3.723342209697461*^9, 3.7233422129586477`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4940010628073196`*^9, 3.4941723607787027`*^9, 3.4941724567488375`*^9, 
   3.494172696119172*^9, 3.4951614417343683`*^9, 3.495161553867365*^9, 
   3.49516358311173*^9, 3.4951639989000616`*^9, 3.4951647977306643`*^9, {
   3.7164202433349895`*^9, 3.71642025627973*^9}, {3.717465285489957*^9, 
   3.7174652861599956`*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"e", " ", "g"}], "-", 
    RowBox[{"d", " ", "h"}]}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"g", "+", 
       RowBox[{"h", " ", "x"}]}], ")"}], "m"], " ", 
    RowBox[{"F", "[", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}], "]"}]}], "\[Equal]", 
   RowBox[{
    FractionBox["1", "e"], " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"g", " ", "x"}], "d"], ")"}], "m"], " ", 
       RowBox[{"F", "[", "x", "]"}]}], ",", "x", ",", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4940010628073196`*^9, 3.4941723607787027`*^9, 3.4941724567488375`*^9, 
   3.494172696119172*^9, 3.4951614417343683`*^9, 3.495161553867365*^9, 
   3.49516358311173*^9, 3.4951639989000616`*^9, {3.4951648090562844`*^9, 
   3.495164816591098*^9}, 3.4951998608665075`*^9, 3.4951999947566953`*^9, {
   3.5511408209821887`*^9, 3.5511408223792686`*^9}, {3.7164202833232765`*^9, 
   3.716420283324277*^9}, {3.716420431742766*^9, 3.716420431742766*^9}, {
   3.716443173263409*^9, 3.716443173263409*^9}, {3.7164440142795124`*^9, 
   3.7164440142795124`*^9}, {3.716444419537692*^9, 3.716444419537692*^9}, {
   3.7171028847619705`*^9, 3.717102886043173*^9}, {3.717105697839674*^9, 
   3.717105697839674*^9}, {3.717109462350363*^9, 3.7171095087800446`*^9}, {
   3.717109812189581*^9, 3.717109812189581*^9}, 3.7171099952100644`*^9, {
   3.7176049792014804`*^9, 3.7176049888680334`*^9}, {3.717605337698985*^9, 
   3.7176053526618414`*^9}, {3.7176285205240307`*^9, 
   3.7176285432913327`*^9}, {3.7176286898887177`*^9, 
   3.7176287116169605`*^9}, {3.717628811528675*^9, 3.71762883748516*^9}, {
   3.723083918902282*^9, 3.7230839217464447`*^9}, {3.7233422350529113`*^9, 
   3.723342267361759*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"e", " ", "g"}], "-", 
     RowBox[{"d", " ", "h"}]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"F", "\[Element]", 
    RowBox[{"{", 
     RowBox[{
     "Erf", ",", "Erfc", ",", "Erfi", ",", "FresnelS", ",", "FresnelC", ",", 
      "ExpIntegralEi", ",", "SinIntegral", ",", "CosIntegral", ",", 
      "SinhIntegral", ",", "CoshIntegral"}], "}"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.495200116396866*^9, 
   3.4952001199668703`*^9}, {3.495201853289297*^9, 3.4952018648993134`*^9}, {
   3.495202034479551*^9, 3.495202075309608*^9}, {3.4952022052197895`*^9, 
   3.495202209799796*^9}, {3.49520236235001*^9, 3.495202364530013*^9}, {
   3.4952024627101507`*^9, 3.495202466110155*^9}, {3.570583225241983*^9, 
   3.570583225241983*^9}, {3.570628124196412*^9, 3.570628124196412*^9}, {
   3.6219006048689528`*^9, 3.6219006048689528`*^9}, {3.621906584467966*^9, 
   3.6219065844689665`*^9}, {3.716440871523757*^9, 3.716440871523757*^9}, {
   3.716515300587973*^9, 3.716515300587973*^9}, {3.7171098732254496`*^9, 
   3.7171098732254496`*^9}, {3.7176049808155727`*^9, 
   3.7176049808155727`*^9}, {3.7176285219861145`*^9, 
   3.7176285219861145`*^9}, {3.7176286914568076`*^9, 
   3.7176286914568076`*^9}, {3.7230889784136696`*^9, 3.72308897841467*^9}, {
   3.723090986351517*^9, 3.723090986351517*^9}, {3.7230924781248417`*^9, 
   3.7230924781248417`*^9}, {3.7233422368260126`*^9, 3.723342236827013*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"g", "+", 
      RowBox[{"h", " ", "x"}]}], ")"}], "m"], " ", 
   RowBox[{"F", "[", 
    RowBox[{"f", " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", " ", "x"}]}], ")"}], "n"]}], "]"}]}]}], ")"}]}], 
    "]"}], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", "e"]}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"g", " ", "x"}], "d"], ")"}], "m"], " ", 
       RowBox[{"F", "[", 
        RowBox[{"f", " ", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"Log", "[", 
             RowBox[{"c", " ", 
              SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, {3.495161845931078*^9, 
   3.4951618787379355`*^9}, {3.495163638398227*^9, 3.495163646853442*^9}, 
   3.49516370254554*^9, {3.495164038477331*^9, 3.4951640737177925`*^9}, 
   3.495199899876562*^9, 3.49519994111662*^9, {3.4952000649467936`*^9, 
   3.495200075966809*^9}, {3.5705598844879603`*^9, 3.5705598906079693`*^9}, {
   3.6218987652867346`*^9, 3.6218988171897035`*^9}, {3.621898877151133*^9, 
   3.6218989022125664`*^9}, {3.71641658841094*^9, 3.71641658893897*^9}, 
   3.716417539660348*^9, {3.7164175776505213`*^9, 3.7164176175118012`*^9}, {
   3.716417719489634*^9, 3.716417726642043*^9}, {3.716420061775605*^9, 
   3.716420134034738*^9}, {3.716420189208894*^9, 3.7164201896279173`*^9}, {
   3.716420227586089*^9, 3.7164202282441263`*^9}, {3.7164216796781435`*^9, 
   3.716421698824239*^9}, {3.7164219936731033`*^9, 3.7164220172984543`*^9}, {
   3.7164417918133945`*^9, 3.7164417936525*^9}, {3.716442737914509*^9, 
   3.7164427536484084`*^9}, {3.716442789584464*^9, 3.7164427900774918`*^9}, {
   3.7164429999524965`*^9, 3.716443000696539*^9}, {3.717465198046956*^9, 
   3.7174651995320406`*^9}, {3.7174655904954023`*^9, 
   3.7174656051562414`*^9}, {3.717465668689875*^9, 3.717465671856056*^9}, {
   3.717521550127079*^9, 3.717521574749487*^9}, {3.7175263483225203`*^9, 
   3.71752638154642*^9}, 3.7176280709353156`*^9, {3.717628161003467*^9, 
   3.717628186363918*^9}, 3.717628249115507*^9, 3.7230835651880507`*^9, {
   3.7230836044012938`*^9, 3.723083608193511*^9}, 3.7230838790910053`*^9, {
   3.723083961540721*^9, 3.7230839618837404`*^9}, 3.7233420656142197`*^9, {
   3.723342107721628*^9, 3.7233421195813065`*^9}, {3.7233424087568464`*^9, 
   3.723342428991004*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"g_", "+", 
        RowBox[{"h_.", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"F_", "[", 
      RowBox[{"f_.", "*", 
       RowBox[{"(", 
        RowBox[{"a_.", "+", 
         RowBox[{"b_.", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c_.", "*", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"d_", "+", 
               RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "n_."}]}], "]"}]}]}],
         ")"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", "e"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"g", "*", 
            RowBox[{"x", "/", "d"}]}], ")"}], "^", "m"}], "*", 
         RowBox[{"F", "[", 
          RowBox[{"f", "*", 
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", 
              RowBox[{"Log", "[", 
               RowBox[{"c", "*", 
                RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], "]"}]}], ",", 
        "x"}], "]"}], ",", "x", ",", 
      RowBox[{"d", "+", 
       RowBox[{"e", "*", "x"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", 
        "m", ",", "n"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"e", "*", "f"}], "-", 
       RowBox[{"d", "*", "g"}]}], ",", "0"}], "]"}], " ", "&&", " ", "\n", 
    "  ", 
    RowBox[{"MemberQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "Erf", ",", "Erfc", ",", "Erfi", ",", "FresnelS", ",", "FresnelC", ",",
         "ExpIntegralEi", ",", "SinIntegral", ",", "CosIntegral", ",", 
        "SinhIntegral", ",", "CoshIntegral"}], "}"}], ",", "F"}], 
     "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616675135646`*^9, 3.495163619631394*^9, 
   3.495164018025695*^9, 3.495199875426528*^9, 3.495200523437435*^9, 
   3.495200639177597*^9, 3.495200753047757*^9, 3.4952010407881594`*^9, 
   3.4952013363585734`*^9, {3.4952570835699644`*^9, 3.495257087673199*^9}, {
   3.4952590667663965`*^9, 3.495259071698679*^9}, {3.495259155129451*^9, 
   3.4952591595397034`*^9}, {3.4952592284316435`*^9, 3.495259233363926*^9}, {
   3.5705608083492537`*^9, 3.570560819349269*^9}, {3.570560875679348*^9, 
   3.5705608813493557`*^9}, {3.6219001333179817`*^9, 3.62190014570369*^9}, {
   3.621900249252613*^9, 3.621900251408736*^9}, {3.6219002913290195`*^9, 
   3.6219002928911085`*^9}, {3.7164228363883038`*^9, 3.716422849596059*^9}, {
   3.7164229128336763`*^9, 3.7164229352129564`*^9}, 3.7164392531651926`*^9, 
   3.7164392890572453`*^9, 3.716503389679708*^9, 3.7165045499320707`*^9, 
   3.7174656625935264`*^9, {3.717465704865944*^9, 3.717465746281313*^9}, {
   3.7175151029350953`*^9, 3.717515109081506*^9}, {3.717518774473944*^9, 
   3.717518776689148*^9}, {3.7175216087704334`*^9, 3.717521685960848*^9}, {
   3.717521720553827*^9, 3.7175217400349407`*^9}, {3.717521794665066*^9, 
   3.7175218210705757`*^9}, 3.7175222782607255`*^9, {3.7175253204747305`*^9, 
   3.7175253245319624`*^9}, {3.7175260629631987`*^9, 
   3.7175260662003837`*^9}, {3.717526314639593*^9, 3.717526341518131*^9}, {
   3.717526392845066*^9, 3.717526436988591*^9}, {3.717526739113872*^9, 
   3.7175267421670465`*^9}, {3.7176282790592194`*^9, 3.717628331446216*^9}, {
   3.7230837061881156`*^9, 3.723083720287922*^9}, {3.723083756111971*^9, 
   3.723083762583341*^9}, {3.7230839975807824`*^9, 3.723084046227565*^9}, {
   3.72308524831032*^9, 3.723085280867182*^9}, {3.7230890302336335`*^9, 
   3.723089047566625*^9}, 3.7230909790480995`*^9, 3.7230924787078753`*^9, 
   3.7233421338501225`*^9, {3.723342458843711*^9, 3.723342513179819*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1908, 988},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[{
     "Rules", " ", "for", " ", "integrands", " ", "involving", " ", "error", 
      " ", "functions"}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{792, 612},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->28.8},
Magnification->1.399999976158142,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 2504, 38, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[3074, 62, 3191, 51, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[6290, 117, 4393, 67, 53, "Subsubtitle"],
Cell[10686, 186, 238, 4, 35, "Subsubsection"],
Cell[10927, 192, 101, 1, 25, "Subsubsection"],
Cell[11031, 195, 647, 21, 45, "Subsubsection"],
Cell[11681, 218, 732, 10, 25, "Subsubsection"],
Cell[12416, 230, 2542, 65, 67, "Subsubtitle"],
Cell[14961, 297, 795, 11, 35, "Subsubsection"],
Cell[15759, 310, 1176, 36, 104, "Code"],
Cell[16938, 348, 1250, 37, 114, "Code"],
Cell[18191, 387, 1234, 36, 114, "Code"],
Cell[19428, 425, 113, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[19578, 432, 4478, 69, 53, "Subsubtitle"],
Cell[24059, 503, 101, 1, 35, "Subsubsection"],
Cell[24163, 506, 776, 25, 45, "Subsubsection"],
Cell[24942, 533, 732, 10, 25, "Subsubsection"],
Cell[25677, 545, 2143, 54, 70, "Subsubtitle"],
Cell[27823, 601, 795, 11, 35, "Subsubsection"],
Cell[28621, 614, 1551, 48, 129, "Code"],
Cell[30175, 664, 1628, 49, 139, "Code"],
Cell[31806, 715, 1598, 48, 139, "Code"],
Cell[33407, 765, 113, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[33557, 772, 4902, 79, 53, "Subsubtitle"],
Cell[38462, 853, 1042, 20, 50, "Subsubsection"],
Cell[39507, 875, 1575, 33, 74, "Subsubtitle"],
Cell[41085, 910, 795, 11, 48, "Subsubsection"],
Cell[41883, 923, 1266, 34, 145, "Code"],
Cell[43152, 959, 1288, 34, 159, "Code"],
Cell[44443, 995, 1293, 34, 159, "Code"],
Cell[45739, 1031, 113, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[45901, 1039, 3353, 56, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[49279, 1099, 3354, 56, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[52658, 1159, 4470, 68, 59, "Subsubtitle"],
Cell[57131, 1229, 5204, 78, 36, "Subsubsection"],
Cell[62338, 1309, 854, 12, 25, "Subsubsection"],
Cell[63195, 1323, 1828, 42, 66, "Subsubtitle"],
Cell[65026, 1367, 795, 11, 35, "Subsubsection"],
Cell[65824, 1380, 1282, 34, 104, "Code"],
Cell[67109, 1416, 1285, 29, 114, "Code"],
Cell[68397, 1447, 1359, 34, 114, "Code"],
Cell[69759, 1483, 113, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[69909, 1490, 4824, 80, 53, "Subsubtitle"],
Cell[74736, 1572, 101, 1, 35, "Subsubsection"],
Cell[74840, 1575, 647, 21, 45, "Subsubsection"],
Cell[75490, 1598, 941, 19, 26, "Subsubsection"],
Cell[76434, 1619, 2465, 64, 72, "Subsubtitle"],
Cell[78902, 1685, 795, 11, 35, "Subsubsection"],
Cell[79700, 1698, 2259, 67, 129, "Code"],
Cell[81962, 1767, 2305, 68, 139, "Code"],
Cell[84270, 1837, 2306, 68, 139, "Code"],
Cell[86579, 1907, 113, 2, 35, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[86741, 1915, 3335, 56, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[90101, 1975, 5023, 84, 53, "Subsubtitle"],
Cell[95127, 2061, 101, 1, 35, "Subsubsection"],
Cell[95231, 2064, 740, 23, 45, "Subsubsection"],
Cell[95974, 2089, 1292, 25, 39, "Subsubsection"],
Cell[97269, 2116, 2153, 54, 72, "Subsubtitle"],
Cell[99425, 2172, 795, 11, 35, "Subsubsection"],
Cell[100223, 2185, 2110, 63, 129, "Code"],
Cell[102336, 2250, 2084, 63, 139, "Code"],
Cell[104423, 2315, 2059, 62, 139, "Code"],
Cell[106485, 2379, 113, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[106635, 2386, 4872, 82, 53, "Subsubtitle"],
Cell[111510, 2470, 130, 1, 35, "Subsubsection"],
Cell[111643, 2473, 1099, 20, 26, "Subsubsection"],
Cell[112745, 2495, 2206, 51, 60, "Subsubtitle"],
Cell[114954, 2548, 795, 11, 35, "Subsubsection"],
Cell[115752, 2561, 1850, 52, 104, "Code"],
Cell[117605, 2615, 1905, 52, 114, "Code"],
Cell[119513, 2669, 1904, 52, 114, "Code"],
Cell[121420, 2723, 113, 2, 35, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[121582, 2731, 4775, 75, 53, "Subsubtitle"],
Cell[126360, 2808, 905, 13, 2654, "Subsubsection"],
Cell[127268, 2823, 1865, 41, 4131, "Subsubtitle"],
Cell[129136, 2866, 795, 11, 2654, "Subsubsection"],
Cell[129934, 2879, 1535, 40, 8115, "Code"],
Cell[131472, 2921, 1540, 40, 8926, "Code"],
Cell[133015, 2963, 1535, 40, 8926, "Code"],
Cell[134553, 3005, 113, 2, 2654, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[134715, 3013, 3546, 58, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[138286, 3075, 3968, 69, 769, "Subsubtitle"],
Cell[CellGroupData[{
Cell[142279, 3148, 5258, 86, 2108, "Subsubtitle"],
Cell[147540, 3236, 1271, 20, 1355, "Subsubsection"],
Cell[148814, 3258, 2325, 55, 1721, "Subsubsection"],
Cell[151142, 3315, 1305, 24, 998, "Subsubsection"],
Cell[152450, 3341, 2206, 46, 2951, "Subsubtitle"],
Cell[154659, 3389, 795, 11, 1355, "Subsubsection"],
Cell[155457, 3402, 1952, 49, 4141, "Code"],
Cell[157412, 3453, 2151, 53, 4555, "Code"],
Cell[159566, 3508, 2134, 51, 4555, "Code"],
Cell[161703, 3561, 113, 2, 1355, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[161853, 3568, 5153, 83, 2108, "Subsubtitle"],
Cell[167009, 3653, 5204, 78, 1397, "Subsubsection"],
Cell[172216, 3733, 1235, 22, 998, "Subsubsection"],
Cell[173454, 3757, 2080, 45, 2760, "Subsubtitle"],
Cell[175537, 3804, 795, 11, 1355, "Subsubsection"],
Cell[176335, 3817, 1807, 47, 4141, "Code"],
Cell[178145, 3866, 1963, 53, 4555, "Code"],
Cell[180111, 3921, 2011, 51, 4555, "Code"],
Cell[182125, 3974, 113, 2, 1355, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[182287, 3982, 4893, 77, 769, "Subsubtitle"],
Cell[187183, 4061, 905, 13, 2654, "Subsubsection"],
Cell[188091, 4076, 2044, 43, 4131, "Subsubtitle"],
Cell[190138, 4121, 795, 11, 2654, "Subsubsection"],
Cell[190936, 4134, 1734, 44, 8115, "Code"],
Cell[192673, 4180, 1736, 44, 8926, "Code"],
Cell[194412, 4226, 1733, 44, 8926, "Code"],
Cell[196148, 4272, 113, 2, 2654, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[196310, 4280, 3585, 60, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[199920, 4344, 3777, 66, 769, "Subsubtitle"],
Cell[CellGroupData[{
Cell[203722, 4414, 3751, 66, 4131, "Subsubtitle"],
Cell[CellGroupData[{
Cell[207498, 4484, 4619, 72, 4131, "Subsubtitle"],
Cell[212120, 4558, 175, 3, 2654, "Subsubsection"],
Cell[212298, 4563, 1043, 26, 3554, "Subsubsection"],
Cell[213344, 4591, 1008, 27, 3372, "Subsubsection"],
Cell[214355, 4620, 804, 11, 1819, "Subsubsection"],
Cell[215162, 4633, 2489, 59, 5797, "Subsubtitle"],
Cell[217654, 4694, 795, 11, 2654, "Subsubsection"],
Cell[218452, 4707, 2041, 59, 10114, "Code"],
Cell[220496, 4768, 2119, 60, 10918, "Code"],
Cell[222618, 4830, 2114, 59, 10918, "Code"],
Cell[224735, 4891, 113, 2, 2654, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[224885, 4898, 4994, 84, 4131, "Subsubtitle"],
Cell[229882, 4984, 101, 1, 2654, "Subsubsection"],
Cell[229986, 4987, 989, 25, 3554, "Subsubsection"],
Cell[230978, 5014, 1546, 44, 3372, "Subsubsection"],
Cell[232527, 5060, 1149, 21, 1955, "Subsubsection"],
Cell[233679, 5083, 3101, 80, 11360, "Subsubtitle"],
Cell[236783, 5165, 795, 11, 2654, "Subsubsection"],
Cell[237581, 5178, 3088, 92, 12074, "Code"],
Cell[240672, 5272, 3141, 93, 12879, "Code"],
Cell[243816, 5367, 3133, 92, 12879, "Code"],
Cell[246952, 5461, 113, 2, 2654, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[247114, 5469, 3804, 67, 4131, "Subsubtitle"],
Cell[CellGroupData[{
Cell[250943, 5540, 5054, 83, 5797, "Subsubtitle"],
Cell[256000, 5625, 5204, 78, 2736, "Subsubsection"],
Cell[261207, 5705, 1235, 22, 1955, "Subsubsection"],
Cell[262445, 5729, 2083, 47, 5797, "Subsubtitle"],
Cell[264531, 5778, 795, 11, 2654, "Subsubsection"],
Cell[265329, 5791, 1859, 49, 8115, "Code"],
Cell[267191, 5842, 2008, 56, 8926, "Code"],
Cell[269202, 5900, 1981, 52, 8926, "Code"],
Cell[271186, 5954, 113, 2, 2654, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[271336, 5961, 4989, 84, 4131, "Subsubtitle"],
Cell[276328, 6047, 189, 3, 2654, "Subsubsection"],
Cell[276520, 6052, 1227, 22, 1955, "Subsubsection"],
Cell[277750, 6076, 3215, 83, 11520, "Subsubtitle"],
Cell[280968, 6161, 795, 11, 2654, "Subsubsection"],
Cell[281766, 6174, 3171, 94, 12074, "Code"],
Cell[284940, 6270, 3218, 94, 12879, "Code"],
Cell[288161, 6366, 3192, 93, 12879, "Code"],
Cell[291356, 6461, 113, 2, 2654, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[291530, 6470, 4932, 79, 769, "Subsubtitle"],
Cell[296465, 6551, 905, 13, 495, "Subsubsection"],
Cell[297373, 6566, 2182, 49, 769, "Subsubtitle"],
Cell[299558, 6617, 795, 11, 495, "Subsubsection"],
Cell[300356, 6630, 1902, 51, 1510, "Code"],
Cell[302261, 6683, 1906, 51, 1661, "Code"],
Cell[304170, 6736, 1902, 51, 1661, "Code"],
Cell[306075, 6789, 113, 2, 495, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[306237, 6797, 3605, 59, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[309867, 6860, 4807, 76, 103, "Subsubtitle"],
Cell[314677, 6938, 101, 1, 67, "Subsubsection"],
Cell[314781, 6941, 1168, 35, 90, "Subsubsection"],
Cell[315952, 6978, 880, 12, 47, "Subsubsection"],
Cell[316835, 6992, 2702, 62, 128, "Subsubtitle"],
Cell[319540, 7056, 795, 11, 67, "Subsubsection"],
Cell[320338, 7069, 2380, 60, 202, "Code"],
Cell[322721, 7131, 2300, 59, 222, "Code"],
Cell[325024, 7192, 2315, 59, 222, "Code"],
Cell[327342, 7253, 113, 2, 67, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[327492, 7260, 4887, 77, 125, "Subsubtitle"],
Cell[332382, 7339, 161, 2, 67, "Subsubsection"],
Cell[332546, 7343, 1398, 33, 83, "Subsubsection"],
Cell[333947, 7378, 879, 12, 47, "Subsubsection"],
Cell[334829, 7392, 2267, 47, 125, "Subsubtitle"],
Cell[337099, 7441, 795, 11, 67, "Subsubsection"],
Cell[337897, 7454, 2018, 50, 202, "Code"],
Cell[339918, 7506, 113, 2, 67, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[340068, 7513, 5204, 87, 103, "Subsubtitle"],
Cell[345275, 7602, 101, 1, 67, "Subsubsection"],
Cell[345379, 7605, 1167, 35, 90, "Subsubsection"],
Cell[346549, 7642, 941, 19, 50, "Subsubsection"],
Cell[347493, 7663, 3258, 80, 144, "Subsubtitle"],
Cell[350754, 7745, 795, 11, 67, "Subsubsection"],
Cell[351552, 7758, 3060, 84, 251, "Code"],
Cell[354615, 7844, 3057, 84, 271, "Code"],
Cell[357675, 7930, 3111, 85, 271, "Code"],
Cell[360789, 8017, 113, 2, 67, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[360951, 8025, 5511, 89, 53, "Subsubtitle"],
Cell[366465, 8116, 1317, 21, 67, "Subsubsection"],
Cell[367785, 8139, 5945, 97, 79, "Subsubsection"],
Cell[373733, 8238, 1384, 26, 50, "Subsubsection"],
Cell[375120, 8266, 2656, 58, 116, "Subsubtitle"],
Cell[377779, 8326, 795, 11, 67, "Subsubsection"],
Cell[378577, 8339, 2473, 65, 202, "Code"],
Cell[381053, 8406, 2552, 66, 222, "Code"],
Cell[383608, 8474, 2549, 66, 222, "Code"],
Cell[386160, 8542, 113, 2, 67, "Subsubsection"],
Cell[386276, 8546, 2603, 67, 202, "Code"],
Cell[388882, 8615, 2654, 68, 222, "Code"],
Cell[391539, 8685, 2649, 68, 222, "Code"],
Cell[394191, 8755, 113, 2, 67, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[394341, 8762, 5411, 86, 53, "Subsubtitle"],
Cell[399755, 8850, 1317, 21, 1355, "Subsubsection"],
Cell[401075, 8873, 5728, 94, 1602, "Subsubsection"],
Cell[406806, 8969, 1314, 24, 998, "Subsubsection"],
Cell[408123, 8995, 2430, 55, 2325, "Subsubtitle"],
Cell[410556, 9052, 795, 11, 1355, "Subsubsection"],
Cell[411354, 9065, 2290, 61, 4141, "Code"],
Cell[413647, 9128, 2347, 62, 4555, "Code"],
Cell[415997, 9192, 2342, 62, 4555, "Code"],
Cell[418342, 9256, 113, 2, 1355, "Subsubsection"],
Cell[418458, 9260, 2342, 62, 4141, "Code"],
Cell[420803, 9324, 2399, 63, 4555, "Code"],
Cell[423205, 9389, 2395, 63, 4555, "Code"],
Cell[425603, 9454, 113, 2, 1355, "Subsubsection"]
}, Closed]],
Cell[425731, 9459, 113, 2, 25, "Subsubsection"],
Cell[425847, 9463, 2560, 39, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[428432, 9506, 6709, 110, 53, "Subsubtitle"],
Cell[435144, 9618, 478, 7, 67, "Subsubsection"],
Cell[435625, 9627, 2207, 37, 50, "Subsubsection"],
Cell[437835, 9666, 3616, 70, 114, "Subsubtitle"],
Cell[441454, 9738, 795, 11, 67, "Subsubsection"],
Cell[442252, 9751, 3806, 79, 202, "Code"],
Cell[446061, 9832, 113, 2, 67, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[446211, 9839, 7103, 120, 53, "Subsubtitle"],
Cell[453317, 9961, 478, 7, 67, "Subsubsection"],
Cell[453798, 9970, 2234, 56, 75, "Subsubsection"],
Cell[456035, 10028, 2404, 42, 50, "Subsubsection"],
Cell[458442, 10072, 3962, 80, 114, "Subsubtitle"],
Cell[462407, 10154, 795, 11, 67, "Subsubsection"],
Cell[463205, 10167, 4248, 94, 251, "Code"],
Cell[467456, 10263, 113, 2, 67, "Subsubsection"]
}, Closed]]
}
]
*)

(* End of internal cache information *)